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»s i;- >5 


SPARE BYTES 



J22EA 
021 B 
02! -C 



* = *4l 

Ll --- • — — -* 1 - 


02EE 

02FF 


AM ACHR 
-CH 

-l£JI PA. i 
-OOP! I 0 
-SSF1 AG 


*: *4 1 
*• *41 
*■ *41 







*: *+l 
*•■ *41 


ATASCII CHARACTER 
GLOBAL VARIABLE FOR KEYBOARD 
RIGHT F 111 DATA (DRAW) 

DISPLAY FLAG : DISPLAY CNTLS IF MON -ZERO 
START/STOP FLAG FOR PAGING (CNH 1). CLEARED BY BREAK 




0300 

0300 

0301 

0302 

0303 

0304 
-0303 

030 A 
0307 
0300 
0309 


i PAGE THREE RAM ASSIGNMENTS 

i 

UCD * DEVICE CONlRUL BLOCK 

DDEVIC » PER IPHERAI UNIT 1 BUS 3 . D. NUMBER 

•DUN IT * s *4 1 UNIT NUMBER 

DCUMND fti It ±1 BUS COMMAND 

DSTATS * *>1 COMMAND TYPE /STATUS RETURN 

DBUELQ *- *+l DATA BUFEFR POINTER L OW BYTE 

JBHliEHl >E * >i. 

DTIMLO *’ *41 DEVICE TIME OUT IN 1 SECOND UNITS 
DUNUSE *41 UNUSED BYTE 

DliYTLii l NUMBE R Q FL-BY1ES ID BE 1RANSEERRED LO W BYTE 

DHYTHI *■ *+l 


U12T 
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030 A 

- DAUXI 

+« #«-l 

030B 

- DAUXI? 


030C 

1 

— T I ME R 1 

*■ **-2 

-QjLOE 

- <\DDCUR 

ft-JLEL. 

030F 

— CAOFl G 

*— #4* 1 

0310 

— T IMER3 

«•: * *2 


- ■■ — — . -1— - - — . . — 

TEMPI 

#: # »-2 

0314 

TEMP? 


03 1 R 

TFMP3 

fc:. 

0316 

-SAVIO 

* = 

03 J 7 

-T 1 MFL G 

K-: -E- *- 1 

031S 

- S T ACKP 

K-: r.- 

0319 

-I ST AT 



COMMAND AUXII ] ARY BY 1 1 J 


INITIAL TIMER VALUE 
ADDITION CORRECT ION 
CASSETTE MODE WHEN SET 
FINAL TIMER VALUE. THESE 1 WU 
ARE USED JO COMPUTE INTERVAL 
TEMPORARY STORAGE REGISTER \ 

TEMPORARY STORAGE REGISTER \ jEi o> 
TEMPORARY STORAGE REGI STE R J 
SAVE SERIAL IN DATA PORT 
TIME OUT IT AG FOR BAUD RATE CORRECTION 
SIO STACK POINTER SAVE CEL1 
TEMPORARY STATUS HOLDER 


TIMER VAl UES 
TOR BAUD RATE 


J 




# 


03 1 A 
QQ21 




MAT ARE* *•- * i-38 HANDLER ADDRESS TABLE 

MAXDEV ~ * -HATABS-5 MAXIMUM HANDLER ADDRESS INDEX 

i 

• NOTE : THE ENTIRE IGCB DEFINITIONS HAVE BEEN MODIFIED 



0340 

I I OCR 

* 

• 

0340 

/ I CM ID 



0341 

/ ICDNO 

*»#+! 


0342 

/ ICCOM 

*: #-f-l 

4 

0343 

/ I CSTA 

* ~ tf- M 


..0344 

— J 1 CJ-LAE.. — _ 

*~*+l 


I/O CONTROL BLOCKS 
HANDLER INDEX NUMBER (EE ^ IOCB 
DEVICE NUMBER (DRIVE NUMBER) 
COMMAND CODE 

STATUS OE LAST IOCB ACTION 


FRE E ) 


0346 

0347 


0343 

0349 

-G3.4A 


034 B 
034C 


I CBAH 
j icni 
_ J CPTH 


*4-1 
»J K- h J. 




ICBLL 
1 CBEH 

— — — 

ICAX2 


*•=*•+ 1 
»4- l 


BUFFER LENGTH LOW BYTE 


_____ 


3 OOPR 


Jfr «• *-4 
JLEK-+MAXIOC 








03 CO 


PRNBUE *b.*+40 PRINTER BUFFER 


*+21 SPARE BYTES 


03FI) 


0480 








i PAGE FOUR RAM. ASSIGNMENTS 

i 

— CASBUF *-**-131 CASSETTE BUFFER 

5 TX 

USER AREA STARTS HERE AND GOES TO END 01 PAGi HUE 
USANEA *: #H28 SPARE 

i 
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CPNTRAl INPUT /OUT PUT (CIU) 2 / 79 


PAGt FIVE RAM ASSIGNMENTS 

PAGE HIVE IS RESERVED AS A (USER3JOUK SPACE 

NOTE: SEE FLOATING POINT SUBROUTINE- ARP A PUR I 'AGE FIVE CELI S 



i 

PAGE 

SIX RAM ASS 


i 

i 

1 

PAGE 

SIX IS RESE 


j 

i 



0006 

i 

FPRE.C 

i ■ — - 

S'. 

6 

D800 

AFP 

art 

$D800 

nf-tp a 

i 

_EASC- 

£ - 

3LD8EA- 

D9AA 

J FP 

* 

$D9AA 

iwnp 

> 

FBI 


$D9D2 

DA AO 

FSUB 


*DA60 

DAA6 

FADD 

ST 

$DA66 

RADR 

ENUi 

r 

$DADB_- 

DB2B 

FD3V 

V: 

$DB28 

DD89 

PI DOR 

s 

$DD89 

DR8D 

PL DOR 

SI 

$DD8D 

DD98 

EL DIR 


$DD98 

DD9C 

ELI) IP 

* 

$DD9C 

nnA7 

P ST OR 

ss 

_ $DDA7 

DDAB 

P ST OP 

?» 

liDDAB 

DDB6 

FNOVE 

=■ 

$DDB6 

1)1)40 

PI. YE.VI 

f. 

$DD40 


# 

I 

j— ... Ml 



DDCO 

EXP 

— 

$DDCO 

DDCC 

!• XP i 0 


T»DDCC 

nr- cn 

_ LOG 


TiDECD 

DED1 

LOG 10 


$DED1 

BD81 

SUM 

r 

*BD81 

BD73 

COS 

sw 

4>BD73 

RP4S ... 

ALAN 


&BE43 

BEB1 

BOR 

r. 

$BEB1 


USER WORK SPACE 


FLOAT 1NG POINT SUBROUTINES 

; FLOATING PI PRECISION (# OF BYTES) 

IF CARRY USED THEN CARRY CLEAR “> NU ERROR* 
i ASC J I ~>F I OAT I NG PO I M l ( FP ) 

INBUFF+CIX -> PRO, CJX, CARRY 

;FP ASCII E_UO •> LBUFF (INliUEJJ 

i INTEGER ~> EP 

IN PRO, FRO+l~>FRO 
PRO ~> FRO, FRO+1, CARRY 
, CARRY 
, CARRY 

/CARRY 

, CARRY 

i FLOATING L OAD RE GO FRO 

. n ii »• FRO 

; •• “ REG I FR1 

H •• FR 1 


CARRY SET O ERROR 


O-HFPEP (P SB, MSB) 
i FP -5 INTEGER 
i FRO <- PRO -- FR J 
i FRO <C~ FRO + FR1 
i FRO <Lr PRO .* ERL 
; FRO <•- PRO / PR) 


< X, Y ) 
(FLPlR ) 
(X, Y) 

( FLPT R ) 
Xr_ERQ 




; FI OAT 1 NG _ST ORE REGG t X , Y ) 

j » » " (PLPTR )<~ FRO 

; FR 1 < - PRO 

i FRO < - P ( 7 ) : SUM ( 1 = N TO 0 ) CALI > *2 *-* J > 

INPUT - ( X, Y ) « A(N). A(N-1 >. . . A<0) ~> P» YARG 

ACC =• (i OF COEFFICIENTS = DEGREE+1 

pro s-Z " A rr7: 

; FRO < - F.**PKO * EXPKKFRO * L0G10(F>) CARRY 

; FRO 10**FR0 CARRY ^ Ar>ov/ 

i FRO O LN(ERO) - LOGiO(FRO) /LOGIC (E ) CARRY 

; FRO <- LOGIC (FRO) CARRY 


CARRY 


XHE E DLL OWING ARE IN BASIC CARTRIDGE 
■ t fro <- S3 N (FRO ) DP.Gi* LG*0 =>RADS, 
j FRO O COS (FRO) CARRY 

il-RO AT AM (PRO) CARRY 

; FRO O SGUAR ERGOT ( FRO ) CARRY 


>DEG. 


CARRY 


QQP4 
OODA 
OOF 0 
QilLh- 
00! C 


j FI OAT IMG POINT 

Vr *D4 

HiQ »: i-FPRFC 

FR j #t^H-FPREC 

ERP hEPREC. 

FRX *«•*»■ I 


. cp 
. X it 


ROUTINES ZERO PAGE 

RE GO 
FP REG1 
IP SPARE 


(NEEDED ONLY IF F. P. ROUTINES ARE CALLED) 








OSFF 



FSCR1 
I IIFF.ND 


FPSCR1 

*-1 


if-ND OF LBUFF 





I EEN MNEMONICS 






DPOO 

POKEY ” 

*D200 

VULANK ACTION: 

DESCRIPTION: 

D3Q0 . 


PQKEY+O 

PQTO- ->PAD1K O 

T hi PAM 1 

DPOJ 

prn i 

POKEY+1 

POT 1 — >PADDI J 

V c./c. / J. IN Rfill la I L 

0-227 IN RAH CM L 

D'r'Ol’ 

POT2 « 

POKEY+2 

pqt 2 — >pADin ;• 

0-227 IN RAH CM L 

D'i'O'J 

poia 

POKEY+3 

P0T3 - ->PADDI 3 

0-227 IN RAH CM L 

DP04 

POT 4 *-* 

POKEY+4 

P0T4 — >PADIH 4 

0-227 IN RAH CM L 

0205 

PCI1 5 « 

POKEY+5 

P0T5 — >PAD)K 5 

0-227 IN RAH CM L 




POKEY+6 

PQT A >PA1)1>I A 

r\ — DD~7 TN RAM #*!-! 1 

11207 

POT 7 

POKEY+7 

P0T7 — >PAl)IK 7 

e£ u. / i IN rsATl V l 1 l 

0-227 IN RAH CM L 

1)208 

At l POT 

POKEY+8 

?r? 


J02QS 

KUtUOL » 

PQKEY+9 



DffOA 

RAN) KIM « 

POKEY -MO 



DPOB 

POICO « 

POKEYS 11 

STROBI I) 


u:'nn 

SFKIN - 

POKEY t 13 



d;>oi 

um 

PGKEY+14 



IKXH 

SKSl A1 

POKEY+1 3 



HH 


POKEY ♦O 



n;*oi 

AUDCl 

POKEYS 1 



D902 

AUDK2 

POKEY+2 



nacia 

auix:^ 

POKEY+3 



DP04 

MJDF3 

POKEY-M 







ft-NlNAI 1 NPUT /OUTPUT (CIO) 2H7-79 





B204 


r ivi/v it: 

AUPE3 


runtJL±vi 
POKEY +4 


CENT RAI INPUT/OUTPUT 

(CIO) 3-7-79 


0300 

U206 

AUDC3 
AUDI -4 t- 

POKEY 4 5 

Dfll/CVj i 

DP07 

D208 

4iaov 

AUDC4 
AUDCTL - 

*1 Mi.U 

r Urvt. Y i t) 

P0KEY4-7 

PCJKEY+S 

pnu ctvj-o 

B30A 

SKRES 

r uac. tty — , 

POKE Y+ 10 

D20D 

SEROUT - 

POKEY+13 

D?QE 

I ROi - N 


DP OF 

SKCTL 

rukStv + i 4 

POKEY+15 

nofin 

i 

C’l TA 

±r\AAA 

DOOO 

HPOSPO * 

— 

CTIA+O 

DOOl 

HPOSP 1 - 

CTIA+1 


-HPQSPa 


I# 

> 


D003 

D004 

- — 1X005 


HP0SP3 

HPOSMO 

HPHSM1 


CTIA+3 

CTIA+4 

CTIA+5 

m 

£ 

v. 

O 


DG06 

1)007 

UClOB 


HP 0 SMI' 
HPOSMO 
st nwi 

♦jjjg 

CTIA+6 

CTIA+7 

CTTA-fff 

M 

M 

i m 

•» - 
D 
03 

© 

TT’ ’ — 1 — 

0009 
DOC» A 
DOOR 


SIZEP1 
SI ZEP2 
S T 7 FT>3 


CTIA+9 
CTIA+10 
CTIA+t t 



DOOC 

DOOD 

POOL 


SI l EM 
GttAPPO 


CTIA+1 2 
CTIA+13 

CT TA+1 4. 

# 


DOOF- 

B010 

DQ1 1 


GRAFP2 
0RAFP3 
QUALM 

ss 

CTIA+15 

CTIA+16 

JIIJA+17 


DO 13 


COLPMO 
COt PMJ 


CTIA+18 

CTIA+19 


DOJ 5 

C0LPM3 -- 

U J XH TC. V 

CTIA+21 

DO 16 

COLPFO - 

CTIA+22 

DO 17 

COI PF1 

CT T A+23 

DO 18 

COLPf-2 =•• 

CTIA+24 

DOJ 9 

CGLPF3 

CTIA+25 

DOJ A 

CDIJiK 

CTIA+26 

DO IB 

PRIOR 

CTIA+27 

DO 1C 

VDELAY = 

CTIA+28 

DOULD. _ 

or Am =r 

CTTA+2Q 

DO. IE 

HI ret R = 

CTIA+30 

DO IF 

CONSOL 

CTIA+31 

DOOO 

MOIiF 

CT T A+fl 

DOOl 

MJPF 

- 1 -*• ^ U 

CTIA+1 

D002 

M2PF 

CTIA+2 

DOOO 


CTIA+3 

D004 

POPE 

CTIA+4 

D005 

PIPE 

CTIA+5 

D0Q6 . ... 

. FOP! 

CTIA+6 

D007 

P3PF 

CTIA+7 

DOOS 

MOPL 

CTIA+8 

UOO'JL... ... _ 

Ml Pi s 

CT T A 4.0 

DOQA 

M2PI 

— UJ,l.nX-z 

CTIA+10 

DOOB 

M3PI 

CTIA+1 1 

DOOC 

POP! 

CTIA+1 2 

DOOD 

PI PL 

— v i jLn • xxx 

CTIA+13 

DOOt 

POP 1 

CTIA+1 4 

POOF 

P3Pi 

CTIA+15 


TR1GO 


CTIA+16 


DO .10 


NONE 


AUDCTL< — COHi: 


N0NE skres< — cstut 

NOME SEROUT < — CH) ( O 

P0KM3K ->1RQLN (At- EEC TED BY OPEN S; UR E: ) 
SSKCTL — >SKCTL SSKCTL< — CSIOT 

V BLANK AC I 1 UN : — __ _ — D ESC R I P T X ON; 


PCGLRO OCOLPMO 

PCGL.R1 — >C;CIL f'Ml 
PCOLRL' • ->CDLPM2 
P COLR 3 — >C OLP M3 
COLORO — >COLPFO 
CDLQRi — >C Ot pFl 
COLOR? — >CQLPF2 

COLOR 3 >C0LPF3 

C0L0R4 —'>001 BK 
<0N OPEN S: OR E: ) 


WITH ATTRACT MODE 
WITH ATTRACI MODE 
WITH ATTRACi MODE 
WITH ATTRACT MODE 
WITH ATTRACT MODE 
WITH ATTRACT. MODE 
WITH ATTRACT MODE 
WITH ATTRACT MODE 
WITH ATTRACT MODE 
GPRIOR — >PR I OR 


*08 — >CONSOi 


TURN OFF SPEAKER 
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DO 11 
DQ12 
D013 


TRJG1 

IR1G2 

TR1G3 


CTIA+17 

CTIA+18 

CTIA+19 


3RIGJ - ->8IR)G1 
TRIG2 *>STR1GP 
TRIG3 — >S1 R 1 03 


imio, 

1)400 
D401 
0402 
1)403 
D404 
JIAOD. _ 


ANTIC 


DM AC 11 
CHAC! 1 
UL133L 
Dt ISTH 
HSCROL * 
-A£3CUU1_ • 


D407 

D409 

04QA. 


PMBASfc 

CHBASE 

WBYNC 


r.... 


r- 


D40B 

DAOC 


VCQUNY 

PENH 


$04QQ 

ANTIC+O 

ANTIC+1 

ANTIC +2 

ANTIC+3 

ANTIC+4 

ANTIC+5 

ANTIC+7 

ANTIC+9 

ANTIC +10 

ANTIC+11 

ANTIC+12 


VBLANK AC I KIN 
DM AC 1 1 < - SDMCn l 

CHACH < CHAC I 

DLIOlLC • S0L3TL 
DLIS'I H< — SDl 81 H 


CHBA8EC -CHBAS 


DESCRIPTION 


ON 

OPEN 

S: 

OK 

i- 

ON 

OPEN 

S: 

OR 

1 

ON 

OPEN 

S; 

OK 

i* 

ON 

OPEN 

S: 

OK 

P 

ON 

OPEN 

S: 

OK 

1* 




P-XA+1 


0303 

- - ■ 


PACT! 
PBCTt 

1 



PIA+2 

PIA+3 


■ r. e. W f. . 


EQRIBrj^IXCKai. 3 


X-Y CONTROL ULK3 




NONE 






NONE 


PACTLO 

PBCTLO 


■3C 

-3C 


I 3 Ni l 3 
i IN .n 3 
















r*? — " ■ " ■ ".v r" 1 * 















■ 
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f 






\ 3 1 LE 


0030 

003A 

QOVB. 


ASCZER 
COl ON 


_ELlL 


'O 

$3A 


'•CENTRAL INPUT /OUTPUT <C30> 3-7 -V9" 
UPDATED BY AL MILLER 3 9 -IB 
ASCII ZERO 
ASCII COLON 

„£NEL. OF. .RECORD 

































. ..... i 





— - — 


— , — 


— 
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CENTRA! I NPUT /OUTPUT (CIO) P-7-/9 


E45& 4C C4 F4 


CIO JUMP VECTOR FOR USERS 
C 1 OV 

JMP CIO 


GO TO CIO 


1L46E 4 C . A 6 _E4 


i CIO INI ) JUMP VECTOR FOR POWER UP 
CIOINV 

JMF Cl 01 NT 


GO TO 1N1T 


-i. ERROR ROUT INE ADDRESS EQUATE 


OOF 4 
OOCO 


FRRTNH* ERRTN/256 

ERR TNI •! imi MH^25A+ERRTN 

J _ . _ 


C 3 OORG 




F4A6 A2 00 
EAA Q A9 EF_ 


; CH! IN11 1ALIZATI0N (CALLED BY MONITOR AT POWER UP) 
CIO I NT I DX #0 

-Cl Oil LDA #IQCFRE SET ALL lOCB'S TO FREE 


E4AA 9D 40 03 
E4AD A 9 CO 
E4AF 9D 4 6_JL>1L 


E4B2 A 9 E4 
E4B4 90 47 03 


ST A ICHID, X 

t DA #ERRTNL 

_LiliV XCPJLi X 


BY SETTING HANDLER 1D'S=*FF 






±AR2 OA 


1 DA 
ST A 
T XA 


#ERRTNH 
ICPTHt X 




















E4BB 

18 



E4B9 

69 

10 


E4BK 

AA 



E4BC 

C9 

30 


E4BE 

90 

ES 


E4C0 

M> 



CLC 
ADC 


# I OCBSZ 




BUMP INDEX BY SIZE 






CMP 

HOC 

KIP 


r" 1 " r*i r ryr-> . ’ i .- ■■y 

#MAXIOC 

cion 


DONE? 




YES, RE' 




mm 


ERROR ROUTINE FOR ILLEGAL PUT 
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r 


OOPC 




■t4c 4 as 2F 

E4C6 86 2E 


E.4C8 BA 
E4C9 29 OF 
E4CB DO Q4 


E4CD EO 80 
E4CF 90 05 



E4P1 AO 86 
E4DS 4C 1B-EA 


i CIO LUCAl RAM (USES SPARE BYTES IN ZERO PACE 1UCW) 
ENTVEC ^ 1CSPRZ 


exit MAIN ROUTINE 


; CIO INI FRF ACES BETWEEN USER AND INPUT /OUTPUT Di- 
CHi ST A CIOCHR SAVE POSS I BCE OUTPUT 

SIX ICIDNO SAVE IOCB NUMBER * N 


CHARACTER 


* 

-i- 


CULCK EUR LEGAL IOCB 
TXA 

AND #*F 

WNE Cl ERR 1 


IS IOCB MUl T 1PI L 
NO, ERROR 


01- 16? 


CPX 

BCC 


4MAXI0C 

I0C1 


IS INDEX TOO LARGE? 

. NO - 


; INVAl JP IOCB 
C I ERR 1 LDY 
JMEL 


NUMBER — 
#BADI OC 
CIRTN1 


RETURN ERROR 
ERROR 
RET URN 



CODE 


E 4 D 6 AO OO 



E-4D8 BD 40 03 
E4DB 99 20 00 


E4DF C8 
E4E0 CO OC 
E4 h2 90 F4 





E4E4 AQ_a4_. 




E4E6 A5 22 
E4E8 C9 03 
E.4EA .20._-.25_ 


i MOVE 

JLX1CJ 

10C1A 


USER 

EDY 

EDA 

STA 

INX 
I NY 

BCC 


IOCB TO 
#D 


ZERO PAGE 


IOCB, X 
IOCBAS, 


#12 

1QC1A 


USER IOCB 
TO ZERO PAGE 


12 BYTES 







; COMPUTE CIO 

LDY 

I DA 
CMP 

BCC 


INTERNAL VICTOR 

#NVALID 

ICCOMZ 

#OPEN 

C1EREL4 _ 


FOR COMMAND 

ASSUME INVALID CODE. 
COMMAND CODE TO INDEX 
IS COMMAND LEGAL? 

r- <3, 





E4EC A8 





— — 



E4ED CO 
E4EF 90 

E4E 1 _A0 
E4F3 84 
E4F5 B9 
E4EB ED 


OE 

02 

_QE 


TAY 

/ 

.i MOVE COMMAND 
CPY 
BCC 

I JOY. 


TO ZERO BASE FOR INDEX 


17 

C6 E6 
0E_ 


I0C2 


STY 
L DA 
TIED 


E4FA 

E4FC 



C9 
FO 

£500 DO 
£502 C9 
E504__£O 
E 506 4C 


02 

35 


4C 

04 

A3 






C9 E5 


CMP 

BEQ 

CM p „ 

DCS 

CMP 

HEO 

JMP 


#SPEC IL 
I0C2 


ICCOMT 
COMTAB— 3, Y 
Cl OPEN 
#2 

CICLOS 

JkQ 

CISTSP 

#4 

Cl READ 
CIWRIT 


IS COMMAND SPECIAL.? 

NO 

YES, SET -SPECIAL OLE SET INDEX 
SAVE C COMMAND EUR VECTOR 
GET VECTOR OFFSET FROM TABLE 
GO IF OPEN COMMAND 
IS IT CLOSE? 

YES 

IS I I STATUS QB SPEC IAL? 

YES 

IS IT READ? 


ELSE, MUST WE WRIT l 
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r 


E50B C9 FF 
E50D FO 05 


OPEN COMMAND 


FIND DEVICE HANDLER IN HANDIER ADDRESS TAM E 


iUOELN _ EDA 
CMP 


ICHID2 

#IOCFRE 

I0C6 


GET .HANDIER III 

IS THIS IOCD CLOSED? 

YES 


E50F AO 81 
ESI I AC JLB-J^h- 


— , — 




20 9E R6 


ESI 7 BO F8 


i ERROR — 10CB ALREADY OPEN 
CIERR3 LDY #P RVOPN 

C1LKR4 JMR CIRXNJL 


i 00 FIND DEVICE 

IOC A jJ&EL OEVSRO 

DCS CIERR4 


ERROR CODE 
RETURN 




CALL DEVICE SEARCH 
GO IF DEV 1 CF NOT FOUND 






E 5I9 2Q 3 D E6 


E51C BO F3 


E51E 20 89 E6 


E521 AV OB 
£523 85 17 
152 5 20 3D.. £6 


E528 A 5 2C 
E52A 85 26 
E52C AS 2D 
E52E 85 27 
E 530 'iC ID E6 




* - 


j DEVICE PLUMB < INITIALIZE II1CB FOR OPEN 








; COW»UTE HANDLER ENTRY POINT 
IQC2__ HSfi_. C0MEN1 







"■ — 




" T 


DCS 


Cl ERR 4 


GO IF ERROR IN COMPUTE 


i 

— -j- 



— • 


m HANDLER- £QR INITIAL 
HSR 001 



- 

t 



— — — i -r^ — 7 — ■ — ■' 

INDIRIC'I HUMP 








i STORE PUT BYTE ADDRESS 1 INTO IQCB 

IDA #PUTCHR SIMULATE PUT CHARACTER 

ICCOMT 

COMPUTE ENTRY POINT 



MOVE COMPUTED VALUE 
TO PUT BYTE ADDRESS 


i ip * ' ' ' ■ ■■ E » . ' *" ■' 






HMP CIRTN2 


RETURN TO USER 












— 
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A ■ 


— 




j- 








i Cl QS£ COMMAND 


# 1 


£533 

AO 

01 

Cl CIOS IDY 

ttSUCCES 

ASSUME GOOD CLOSE 



F535 

04 

23 


ICSTAZ 




£ 537 

20 

3D E6 

vlSR 

COMENT 

COMPUTE HANDIER ENTRY POINT 

# 


£ 5 3 A 

BO 

03 

DCS 

CICL02 

GO IF ERROR IN COMPUTE 



P ti3C 

20 

89 E6 

J3R 

GOHAND 

GO TO HANDLER TO CLOSE DEVICE 



E53F 

A9 

FF 

C 3 Cl. 02 1 DA 

# I OCFRE 

GET IOCB “ERI E " VAt UE 

m 


£ 54 1 

85 

20 

Si A 

ICHIDZ 

SET HANDIER ID 




A D 

E.4 

MjA 

ttFRRTMH 




E54 5 

♦ * 

85 

27 

SI A 

ICPTHZ 

SET PUT BYTE TO POINT TO ERROR 

0 


£547 

A9 

CO 

L DA 

ttERRTNL 




£ 549 R5 2A 

SI A 

1CPTLZ 




E54B 

4C 

ID E6 

JMP 

C1RTN2 

RETURN 

0 





i 








; STATUS AND 

SPECIAL REQUESTS 


m 





; DO IMPLIED 

OPEN IF NECESSARY 

AND GO TO DEVICE 



F- S/I F- 

A5 

20 

CISTSP l DA 

ICHIDZ 

IS THERE A HANDLER ID? 



E550 

C9 

FF 

CMP 

# I OCFRE 


0 


E552 

DO 

05 

BNE 

CIST1 

YES 






; WCB IS EREE, DO IMPLIED OPEN 

m 



20 

9E E6 

JSH 

DEVSRC 

FIND DEVICE IN TABLE 



E552 

BO 

128 

DCS 

CIERR4 

GO IF ERROR IN COMPUTE 



E5 59 P . 0 3D Eh 


E55C 20 89 E6 


; COMPUTE: AND GO TO ENTRY POINT IN HANDLER 

LJJXLL UKR C OMFNT COMPUTER HANDLER ENTRY VECTOR 

JSR GOHAND GO TO HANDLER 




i RESTORE HANDLER INDEX (DO IMPLIED CLOSE) 


E55E A6 2E 
E561 PD 40 03 
£.564 B5-2Q 


L DX 
L DA 
STA 


ICIDNO 
ICHIDi X 

ICHIPZ 


£566 4C ID E6 


JMP 


CIRTN2 






' ' — ■ 


L" ' , 


IOCB INDEX 

GET OR 3 GINAL I IANDL ER 3 D 
-RESTORE ZERO PAGE 

RETURN 
















. 




CENTRAl 1 NPUT /OUTPUT (CIO) 2-7-79 


.r 


* 569 A5 22 
E56B 25 2A 
E56D I2Q 05 


i READ DU GET COMMANDS 
C 1 READ IDA ICCOMZ 

AND ICAX1Z 

BNE RC I 1 A 


GET COMMAND BYT E 
IS THIS READ I EGAI 
YES 


-^ oV ^ xrt 4 To ^ o“T 


E56F AO 83 


E571 4C IB E6 


; 1 1 LEGAL READ 

LBY 

RCI1H ONE 


— IOCB OPENED FOR WRITE ONI Y 
ttWRONLY ERROR CODE 

CIRTN1 RETURN 




E 57 4 20 3D E'6 
E 577 BO F8 




£579 AS 28 
E57B 0 5 29 


E57D DO 08 
E57F 20 89 E6 




x CUMPU.T E AMD CHECK ENTRY POINT 
RCI1A JSR COMENT 

DCS RC I IB 




GET RECORD OR CHARACTERS 
L DA ICBLLZ 

ORA... ICBU.Z+1 


COMPUTE ENTRY POINT 
GO IF ERROR IN COMPUTE 




£582 J35 2F 


BNE 
JSR 
_ ST A 






IS BUFFER LENGTH ZERO? 


U 


RCI3 
GOHAND 


CIOCHR 


£584 4C ID E6 


JMP 


CIRTN2 



E 587 20 89 
E58A 85 2F 
ESBD 30 35 

E 6 RGI3 

JSR 
ST A 
BN I 


£58E AO 00 
E590 91 24 
L592 20 70 

FA 

LBY 
SI A 
JSR 


£595 A5 22 


I DA 


£597 29 02 


AND 


£599 DO DC 


bnf: 


JE59B AS ,2F , 

i 

; CHECK 

FOR 

UftV„ 


HOOP JLU EJLLL„ BUFFER OR 

GOHAND 
CIOCHR 

_ RCI4 , 

#0 

(ICBALZ), Y 

LMCBFFL^ 

ICCOMZ 
#2 
RCU 

FOR EOL ON TEXT RECORDS 

_ CIOCHR 


TO GET BYTE 






— 




■ ■ 


PUT BYTE IN USER BUFFER 

ivt 


GET COMMAND CODE 
IS IT 
NO _ 


— 

MMAND CODE 
GET RECORD? 

»• .. W .. W .... ...W,. i . - .I — .* . ... ■ . -.I., .... ... - . , . -W .. - ■ . 


' 






E59D C9 9B 
E59F DO 06 
AX 20 63 £6 


CFT RVTF 






E5A4 4C C3 E5 


CNF 

BNP 

OSR 

JMP 



#EOL 
RC 1 1 
DECBFL 
RC 1 4 


IS IT AM EOF? 

YES, DECREMENT BUFFER LENGTH 
END 'iRANSi t-K 




EDA 7 20 63 E6 
P DA A DO DB 


x XHECK 
RC: ) J vISR 
BNE 




DECBFL 
RC 13 


DECREMENT BUFFER LENGTH 
CONTINUE IF NON ZERO 








— 
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Mv AC A 5 
EL A E 29 


22 


-02 


— — , — — 

E580 DO U 














i BULKER FULL* RECORD NO'l ENDED 
i DISCARD BYTES UNTIL END OF RECORD 

HC1P ICCOMZ GET COMMAND BYTE 

-AND #2 JLS IT GF1 flHABAn BTOO 




E5B2 20 89 E6 
E5B5 85 2F 






E5BB C9 9B 
E5BD DO F3 







ESBF 


E SC i 

E5C8 


EDC6 




NCI A JSR 

GOHAND 

STA 

CIOCHR 

- - JlMl 


i 

i TEX! RECORD, 

WAIT FOR 

1 DA 

C YOCHR 

CMP 

#EOL 

BNP 

RC 16 





GET BYTE FROM HANDLER 
SAVE CHARACTER 
GO IE 





IS IT EOL? 
NO, CONTINUE 


A 9 89 






i END OF RECORD, 
RC3I3 IDA 
SXA__ 


BUFF 




ER FUl L — SEND TRU 





MESSAGE 






STORE IN 














; TRANSFER DONE 

^ C-A— 1 1 . ■ • - • — — SUBBFL 


’ — ' — — — | 

UMP 


CIRTN2 









SE T F ) NA I BUFFER I FNftT.H 







l 

l 

i 

I 









— — r 





— 


« 




CENTRAl INHUT/OUTPUT (CIO) 3 . 7-79 


E5C9 A 5 22 
FSCB 25 2A 
JL5CD JXXQ5 


E-5CF AO Q/ 


ESDI 4C IB E6 


i MRITI-. - DO PUT COMMANDO 
CIWRIT L DA ICCOM2 

AND ICAX1Z 

- BME UCT1A 


GET COMMAND BYTE 
IS THIS WRITE I f GAl ? 

yes; 


; 1 1 IT- C> At WRITE — DEVICE OPENED FOR READ ONLY 

LDY ttRDONLY ERROR CODE 

WC 1 IB JMF CIRTN1 RETURN 






E5D4 20 3D E6 
E5D7 BO F8 


E5D9 A5 28 
LDBB jOM 29, 


i COMPUTE. AND CJJECK.-JENT RY_E£11N T 

WO.IA USR COMENT COMPUTE HANDIER ENTRY POINT 

DCS WCI1B GO IF ERROR IN COMPUTE 


E5DD DO 06 
E5DF A5 2F 


— ■ - ■ — ■. ■ ■ 


E.5 E 1 — E6 2a 




EDE3 DO 06 


; Pin RECORD OR CHARACTERS 
L-DA ICBLLZ 

“*4 ICBLLZ+1 IS BUFFER LE NCTH ZERO? 

BNE WCI3 NO 

IDA CIOCHR GET CHARACTER 

INC ICBLLZ SET BUFFER I FMOTtfat 

BNE WC 1 4 THEN JUS! TRANSFER ONE BYTE 












E5E5 AO 00 
E5E7 B1 24 
,EbE9_B5^2F. 
E5EB 20 89 E6 
E5EE 30 25 
_L5LQ.._2Q. 70 E6 


i_.l.LlDP JLO TRANSFER BYTES FROM BUFFER TO HANDLER 

mm. mu 

< I CB ALZ ) 1 Y GET BYTE FROM BUFFER 




STA 


CIOCHR 






— .. . .. ...» 


WC 3 4 


JSR 

BMI 




GOHAND 
WC 1 5 
XNCB£P 


SAVE 

GO PUT BYTE 
END IF ERROR 
INCREMENT BUFFER PJJXNXER 




E M 8 A5 22 


> check FOR TEXT 

LB A IC COM2 


mmkM — 5 — j . nwn c. nc > ni , qyr , r ,C M 

RECORD 

r-^/nM -7 r»cr*r r-riKtMAKU v u v « iv. 


E5F5 29 02 
E5F7 DO OC 


AND 

BMP 


#2 
WC 1 1 


GET COMMAND BYTE 
IS IT PUT RECORD? 
NO 


— — 


■ ■— . . . . . r 


i TEXT RECORD 


EM- 9 A 5 

2F 


1 DA 

CIOCHR 

ir DEB C? 

9B 


CMP 

#EQL 

E-5FD DO 

06 


BNE 

wen 

F5EF 20 

63 

E6 

JSR 

DECBFL 

JL6Q2 4C 

JL5_ 

JE6 

_ iJMP„ 

WCI5 


CHECK FUR LOl TRANSFER 

GET LAST 


. . . , 1 T 





IS IT AN I t# ? 

NO 

DECREMENT BUFFER LENGTH 
END TRAN S FER 


E/ 1 O& 20 .63 E6 
DB 


; CHI CK FOR BUFFER EMPTY 
WCll JSR _ DECBFL 

WCI3 


™ U lIItiDUM-Ctt — — 

r , ,* k r, 1 , , in II WU x i LI 


DECRfc ME NT BUFFER LENCTH 
CONTINUE IF NUN ZERO 








« 
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CENTRAL I NPUT /OUTPUT (CIO) f>~7~7V 




K60A Af> 22 


WCJ 2 


EMPTY* RECORD NOl [ It LED 
CHECK *1 YPE OF TRANSFER 




l DA 



iccomz 


GET COMMAND CODl 


WCI5 


VES, END TRANSFER 
)* BUFFER EMPTY* SEND EOF 


IS IT PUT CHARACTER? 


E610 A 9 9B 
E612 20 89 E6 



#EOL 
GOHAND 


YES* FND f RAMBLER 
SEND tOL 




1 ‘ ' I ~ i 

KM 5 ;>0 77 E'6 

r- - , 


GD TO JfAMDI FR 








TW$TV-'- 


AC ID .E6 






f END PUT 1 RANSFE 
WCUl vISR 

jm _ 




nom 


ACTUAt PUT PUFFER LENGTH 









— 























■- T T’"-*- I' . " 







UJ2T 


CENTRA! INPUT/OUTPUT (CIO) P-7-/9 







» 

i CIO RETURNS 






E61B 84 

23 

i RETURNS WITH 
CJR1N1 STY 
* 

Y=STATUS 

ICSTAZ 

SAVE STATUS 




LAID A4 

2E 

i RETURNS WITH 
; MOVE JOCB IN 
C1RIN2 LBY 

STATUS STORED 
ZERO PAGE HACK 
ICIDNQ 

IN ICSTAZ 
TO USER AREA 
GET IOCB INDEX 




E6JF 139 
F622 85 
L624 Ii9 

44 03 
24 

45. jQ3_ - „ 

l DA 
SI A 
: A 

ICBAL, Y 
ICBALZ 
ICBAH, ¥ 

RESTORE USER BUFFER POINTER 




E627 85 25 
E 629 A2 00 
E6 2B B5 _20 

31 A 

i d>; 

C.TRT3 L DA 

ICBAHZ 

#0 

IOCBAS> X 

LOOP COUNI AND INDEX 
_ ZERO PAGE 




E630 I S 
E631 C 8 


3 NX 
JLNY 


E6 33 EO OC 
E63 4 90 F 5 


F 636 A 5 2F 

JL638 A6-2E. 


CPX 

BCC 


IOCB, Y 


# .t 2 
CIRT3 


TO USER AREA 


— - — .. 


12 BYTES 


1 V 1 .. ' 1 1 » . ;r r r; " " ■— » ■ 1 


F63A A 4 23 
mSC 60 


i RESTORE A, X, & Y 

LDA CIOCHR 

— ■ — ICXBMO 

I DY ICSTAZ 

U 1 S 


GET LAS*! CHARACTER 
I QCB IN) 




» » *.« n t ..... 



FT 


GET STATUS AND SET El AGS 
RETURN TO USER 






rr — r> — — 









?> ■" '»■ 



























>— — - T 





























— 
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CENTRAL INPUT/OUTPUT (CIO) 0-7 79 


r 


CIO SUBROUTINES 


E63 D A4 20 
E63F CO 22 
t -MJ 70 04 


COME NT I DY 
CPY 
BCC 


AND COMPUTE HANDLER ENT RY POINT 
ICHIDZ GET HANDLER INDEX 

#MAXDEV+;I IS IT A LEGAL INDEX? 

C0M1 YES 




— — 




~L640 ao as 


£645 BO IB 


— I’T.'.' Ul " 


; ILLEGAL HANDLER INDEX MEANS DEVICE NOT OPEN FOR OPERATION 

LUY— — tt NQTQPN .ERROR CODE m 

DCS COM2 RETURN 

* 



ao 

(p 

k. 

o 






# 

# 




E647 B9 IB 03 
E64A 85 2C 
--E64C D7 00-03-- 
E64E 85 2D 
£651 A4 17 
E653 B 9 C6 E6 . 


; USE HANDLER ADDRESS TABLE AND COMMAND 3 ABLE 1 0 GET VECTOR 
C0M1 L DA HATA8S+1 , Y GET LOW BYTE OF ADDRESS 

ST A /rc SPRIT AMD SAVE IN POINTER 







E656 A 8 
E657 Bl 2C 
E65 9 A A 


— 


LDA 
ST A 
t DY 
EDA 
3 AY 
L DA 
. JLAX 




ADDRESS 


COMTAB-3* Y 


GET COMMAND CODE 
GET COMMAND OLE SET 



E65A C8 
E65B Bl 2C 
E65DQ 5 2D 


( ICSPRZ ) > Y 










GET LOW BYTE OF VECTOR FROM 
HANDLER ITSELF AND SAVE 




( ICSPRZ ) > Y GET HI BYTE OF VECTOR 






E65F 86 2C 
E661 IS 
E663-6 Q — 


E663 C 6 28 
C665-A5 J2B. 


£667 C9 FF 
£669 DO 02 

j rj /•» * 

E 66 D 05 29 
E 66 F 60 


E67D-E6-24 


E672 DO 02 
E674 F 6 25 
E676 60 




SET LO BYTF 
SHOW NO ERROR 


DJ.CBF1 


i> I u — — r— — ' 


i ? FLAG * 0 ON RETURN IF LENGTH = 0 AFTER DECREMENT 


DECBFL 


DFC 

LDA. 


ICBLLZ 

ICBLLZ 


CMP 

BNE 


#$FF 


DECBF1 
DEC ICBLLZEl 




DECREMENT LOW BYTE 

.CHECK IT _ — 

DID IT GO BELOW? 

NO 

DECREMENT HI BYTE 


— — r 






DFCBFJ ORA 
RTS 


ICBLLZ+1 


SET 7 IF BOTH ARE ZERO 




; 

i INCBEP — INCREMENT WORKING BUFFER POINTER 
INCBf P INC ICBAL2 BUMP LOW BYTE 

BNE INCBF 1 GO IF NOT ZERO 

INC ICBALZ +1 ELSE, BUMP HI BYTE 

INCapi RTS _ _ _ r 








SUCRE L 


SET BUFFER LENGTH ~ 


E677 A 6 2E 
E679 38 
FA7A nn AR 03 

SUB B FT LDX 

SEC 
LBA 

ICIDNO 
ICBLLj X 

E67D F5 28 

SBC 

ICBLLZ 

E67E 85 28 

ST A 

ICBLLZ 

E601 Bl) 49 03_ 

LDA 

ICBLH, X 

E684 E5 29 

SBC 

ICBLLZ+1 

F 6 Q 6 85 29 

SI A 

ICBLHZ 

P.6H0 60 _ 

NTS. 

, ;w! , -.1 ■ , 


BUFFER LENGTH WORKING BYTE COUNT 
GET IOCB INDEX 

GET LOW BYTE OF INITIAL LENGTH 
SUBTRACT FINAL LOW BYTE 
AND SAVE BACK 
GET HI BYTE 







CENTRA! I NPUT /OUTPUT (CIO) 2-7-7-V 


f 


i COM AND • GO INDIRECT 
i Y' STATUS ON RETURN, 


EA 89 AO 92 
EA8R on 93 EA 

COM AND 1 DY 
JBRL 

#FNCNOT 
C T JUMP 

EASE 84 23 

SI Y 

ICSTAZ 

EA90 CO 00 

CFY 

#0 

LA 92. AO 

axs 



t 


TO A DEVICE HANDLER 
N I I AG" 1 IF ERROR ON RETURN 

PREPARE NO FUNCTION STATUS FOR HANDI ER RTS 

, -USE THE INDIRECT JUNE 

SAVE STATUS 
AND SET N FT AG 


-EA93 AA 


E694 A 5 2D 
E69A 48 
JEA97 AS 2C 


E699 48 
E69A BA 
E69B^A6-2JE 


E&9D 60 




i INDIRECT DUMP TO HANDLER BY 




:iax . 

1 DA 

ICSPRZ+l 

PHA 


L DA 

. ICSPRZ 

PHA 


TXA 


1JDX 

--XCXDNQ 

STS 







PAUL'S METHOD 
SAVE A - 


GET JUMP ADDRESS HI BYTE 
PUT ON STACK 
GET JUMP ADDRESS LO BYTE 
PUT ON STACK 
RESTORE A 
GET 10CB INDEX 


GO TO HANDLER INDIRECTLY 








*— 


TT 7 


T TT 








•v ,J ■ V 1 1 


rr'TF' 
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CENTRAL INPUT/OUTPUT (CIO) 2 -7-79 


f 


DRVSKC 


DEVICE SEARCH, FIND DEVICE IN HANDLER ADDRESS TABLE 


LOOP ID F ) ND DEVICE 



. LA9F 

AO 

GO 

DRVliliC LDY 

#0 



1 AAO 

B1 

24 

1 DA 

(ICBALZ), Y 

GET DEVICE NAME FROM USER 


e:aa2 

10 

OC 

BEG 

C I ERRS 



E6A4 

AO 

21 

L DY 

#MAXDEV 

INITIAL COMPARE INDEX 


F AAA 

D9 

1A 03 

DEVS 1 CMP 

HATABS, Y 

IS THIS THE DEVICE? 


FAA9 

FO 

OA 

BEG 

DEVS2 

YES 


FAAH 

88 


DRY 




EAAC 

08 


DRY 


ELSE, POINT TO NEXT DEVICE 


F6AD 

88 


DFY 




E6AE 

10 

Jib 

BPL 

DEVS1 

CONTINUE E OR ALL DEVICES 





1 

i NO DEVICE FOUND, DECLARE 

NON-EXISTENT DEVICE ERROR 


F-ARn a n 

82 

£1RRR2 LiiY 

#NONDEV 

_ FRRHR COPF 


E6B2 

38 


SEC 


SHOW ERROR 


EAB3 

BO 

13 

DCS 

J . . — 

DEVS4 

AND RETURN 





i EOUND DEVICE, 

SET I CHID, 

:iCDNO, ANI) I NIT DEVICE 


EAB5 

98 


DE VS2 1YA 




E6BA 05 20 
EAR 8 38 
E6B9 AO 01 
EABB Jll_ 24 
EABD E9 30 
EABF C9 OA 
E ACT 9Q_Q2 


FAC 3 A9 01 
FAC 5 85 21 
JE6C 7 . 18 _ 


DFVS3 


81 A 
SEC 

I DY 
LDA 
SBC 
CMP 
BC£ 
I DA 
S1 A 
_CLC 


LCHIDZ 

#1 

(ICBALZ), Y 

#ASCZER 

#«A 

DEVS3 _ 

#1 

ICDNOZ 


SAVE HANDLER INDEX 



f> 




GET DEVICE NUMBER (DRIVE NUMBER], 

SUBTRACT ASCII i l\ I l 

IS NUMBER IN RANGE betW VsT . 

ypcq 

NO, DEE AUl i TO ONE 
SAVE DEVICE NUMBER 
SHOW NO ERROR 


„JL6CEL_6£L 


; RETURN 

DEVSA- RLE 


±, 















CENTRAL INPUT/OUTPUT (CIO) P7-/9 


f 


EAC9 00 04 04 
£6CC 04 04 06 


E6CF 06 06 06 
E6D2 02 08 OA 
Q22F 


E6D5 


0014 .00. 


; CHI RUM TABLES 


COMMAND TABLE 

MAPS EACH COM MAND TO OI-i-OF T FOR APPROPR 1 ATE VECTOR IN HANDLER 


O, 


4 J 




V 




i 


£u 


> *\ 


'5T5i 


f \ B 


I 


corn AH . BYTE 

'j OS W\ 1V\ <x^A.ck ~ 

I-1:N0T11^-C1C!INX 

CRMTPC =■ * 

#=<€14 

CIOSPR . BYTE INTORG-CRN‘1 EC CIOL IS TOO LON G 


I- .i » «.■ u > ■ « ■ 1 ■_ ry. • 1 » 1 mi ■ 1 • ji • . ■ i 


> - w v ■ 'y y 1 ' I ' / ' - 1 1 " 1 ? V 1 








CENTRAL 1 NPUT /OUTPUT (CIO) 2 / -79 



SYMBOL 

TABLE 



ADDCUR 

G30E 

ADRESS 

0064 

AFP 

AN 1 I C 

D4 OO 

APPEND 

0001 

APPMHI 

A7 AC HR 

02PB 

ATAN 

HF43 

Ai PACT 

AUDC2 

11203 

AUDC3 

11205 

AUDC 4 

AUDF1 

1)200 

AUDF2 

1)202 

AUDF 3 

BAD IOC 

0086 

BADMOD 

0091 

Bi t NH I 

B J 1 NSK 

00 6E 

BLIM 

028 A 

Bl KB DO 

liOOTAD 

0242 

BOTSCR 

02BF 

BPTR 

BRKKFY 

001 1 

BUFADR 

0015 

BUFCNT 

1TUFRHI 

0033 

BUFRLO 

0032 

BUI 3TR 

CASETV 

E440 

CASFLG 

0301 

CAB INI 

C ASSET 

004 B 

CASSET 

0043 

CAUX1 

CBAUDH 

Q2EF 

CBAUDL 

n:>r f- 

CC8MND 

CDTMA1 

0226 

CDTMA2 

0228 

CDTMF3 

CDT MF5 

022E 

CDTMV1 

0218 

CDTMV2 

. £1UMU4 

02 IF 

CDTMV5 

Ci' >Z>C\ 

CH 

CHACT 

02F3 

CHACTL 

1)401 

wft ft 

CHAR 

C MB ABE 

D409 

CHKERR 

008F 

CHKSNT 


D800 
OOOE 
004D 
D207 
D204 
0035 
E47 1 
003D 
006B 
0Q6C 
0002 
023C 
02 3 B 
022A 
021 A 
Q2FC 
02FA 
003B 


ALLPQl 

asc?lf< 

AUDC 1 
AUDC l L 
AUDF4 
BK Nt o 
BOOT? 

brkabt 

BUFRFL 

CASH UP 

CASORG 

CAUX2 

CDEVIC 

cm MF4 

CDTMV3 

CHI 

CHBAS 

CHKSUM 


D208 

0030 
D201 
D208 
D206 
0034 
0009 
0080 
0038 
03FD 
EF41 
023D 
023A 
022C 
021C 
02F2 
02F4 

0031 


CIERR2 

E6B0 

CIERR3 

E50F 

CIFRR4 

E51 1 

Cl JUMP 

E693 

CIO 

E4C4 

CIDCHR 

002F 

CIOI 1 

E4A8 

CIOINT 

E4A6 

c i ri i mu 

F4 6F 

CIOQRG 

E4A6. 

P LOREN 

E5Q9 

CIQSPR 

0014 

C 3 OV 

E456 

CIREAD 

E569 

CJRT3 

E62B 

CIRTNl 

E61B 

C1RTN2 

E61D 

CIST1 

E559 

CISTSP 

E54E 

Cl WRIT 

E5C9 

C1X 

QOF2 

CKEY 

004 A 

CLOSE 

OOOC 

COL AC 

0072 

COL BK 

DOJ A 

COLORS 

0055 

COLDST 

0244 

COl DGV 

E477 

COL INC 

007 A 

COLON 

003A 

COL OR 0 

02C4 

COLOR 1 

02C5 

COl Of? 2 

0206 

CHI HR 3 

02C2L 

cni nR4 

02CB 

COLPF 0 

D016 

COLPF 1 

DO 17 

C0LPF2 

1)018 

C0LPF3 

DO 19 

COL PMO 

DO 12 

C0LPM1 

DO 13 

C0LPM2 

DO 14 

C Oi P M3 

D01 5 

COL RSH 

004F 

COM 1 

F647 

COM2. 

F662 

COMENT 

E63D COMTAB 

E6C9 

CONSOL 

D01F 

COS 

BD73 

COUNTR 

007E 

CR 

009B 

CRETRY 

0036 

CRITIC 

0042 

CRNTPC 

E6D5 

C RS I NH 

02F0 

CROP Of? 

OORD 

CSOPTU 

_E47DL 

CS1 AT 

0288 


DOOO 

DAUXl 

030A 

DAUX2 

030 B 

DBSECT 

0241 

DBUFHI 

0305 

DBUFLO 

0304 

DBYTHI 

0309 

DBYTLO 

0308 

DCB 

0300 

•fTivIJvir* 

0302 

DDEVIC 

0300 

DFCBF1 

E66D 

DEC BE L 

E663 

DLGFLG 

OOFB 

DEGON 

0006 

DELETE 

0021 

DELI AC 

0077 

DLL TAR 

0076 

DERR OR 

0090 

DEVS1 

E6A6 

DEVS2 

E6B5 

1>!-UR3 

P6C5 

DEVS.4 

F6CR 

DFVBRC 

E69E 

DP-LAGS- 

0240 

DIGRT 

001 1 

DINDEX 

0057 

DIRECT 

0002 

DISK 

0044 

DISK IV 

E450 

DISPLY 

0053 

Dl I STM 

D403 

Dt I STL D402 

TIN ACT 1 1)400 

DMASK 

D2AG 

DNACK. 

QQ8B 

DUSINI 

OOOC 

DOSVEC 

OOOA 

DRAWLN 

0011 

DRETRY 

0037 

DRKMSK 

004E 

DSKFMS 

0018 

DSKINV 

E4 53 

DSKORG 

EDEA 

DSKTIM 

0246 

DSKUYL 

O0 1 A 

DSPFJLG 

Q2PE 

DS'l AT 

PQ4C 

DSIAIS 

0303 

FT into 

0306 

DUN IT 

0301 

DUMUSE 

0307 

DVSTAT 

02EA 

EDI TRV 

E400 

EEXP 

OOF I) 

ENDPT 

0074 

FNTVEC 

002C 


0008 

EDI 

009B 

ERRFLG 

023F 

ERRTM 

E4C0 

ERRTNH 

00E4 

ERRTNL 

OOCO 

EBCFLG 

02A2 

ESIGN 

OOEF 

EXP 

DDCO 

EXP 10 

DDCC 

FADD 

DA 66 

FASC 

D8E6 

ECiiHEl 

001- XL 

FDLV. 

DR 28 

FLOE 

003F 

FILL) AT 

021-D 


F1LFLG 0237 
Ft HIP DD9C 
FMBIB& 004a 
D9D2 
OOFE 
_XX1UA_ . 
05F6 


FPI 
FP7 HP 


LUL. 


FILLIN 

FLD1R 

FMUL 

FPREC 

FRO 

F REQ - 


FBCR 


FSCR1 


001 2 
DD98 
DAUB 
0006 
00) >4 
0040 

owe 


5 LOOP 
FI PTR 
i lMCiMQT 
FP SCR 
FR1 

.FHMbRR 
F STOP 


DD8D 
00 FC 
0092 
05E6 
OOEO 

Qoac 

DDAE 


FL DOR 
I HOVE 
FORMAT 
F'PSCRl 
I R2 

PUX. . 
FBI OR 


DDI36 

0022 

05EC 

00E6 

OOEC 

DDA7 











, v , - » ■ ■ — 








CFNYRA1 


INPUT/OUTPUT 

1 I 


(CIO) P-7-79 


» 


t 


F3UB 

GLBABS 

CRAFM 
GRAFP3 
UUL DP 
HOI DC H 
HP0SM3 


DA60 
Q2E0 
DOl I 
DOIO 
Q29E, 
007C 
DOC>7 


\ 


F7YPE 

GOHAND 

GRAFPO 

HA TABS 

HQLB3 

HPOSMO 

HPOSPO 


- — UPQ3P3 
1 CAX2 
3 CBAL 

DQQ3 
034 B 
0344 
034 3 

HSCRDL 
ICAX2Z 
ICBALZ 
TORI i 7 

1C COM2 

0022 

ICDNO 

ICHID7 

0020 

ICIDNO 

ICPTL 

0346 

ICPTLZ 

ICSTA 

0343 

ICSTAZ 

IMCBF1 

E676 

INCBFP 


003} 

E689 

DOOD 

03 J A 

027B 

D004 

DOOO 

D404 

OITCHR 
GPR I OR 
GRAF PI 
H1TCLR 
HULD4 
1 IPOSN1 
MPGSPi 
ICAX1 

0007 

026F 

DOOE 

doie 

Q2BC 
D005 
DO 01 
034A 

OF 1 RFC 
GRACTL 
GRAFP2 
HOI 1)1 
_ HOLD 5 
HP0SM2 
HP0SP2 
1CAX1Z 

002 B 

ICBAH 

0345 

ICBAHZ 

0024 

ICBLH 

0349 

ICBLHZ 

0023 

1CCLIM 

0342 

XCCflMT 

034 J 

3 CDNQZ 

0021 

I CHID 

002 F 

3 CP 7 H 

0347 

I CP 7 HZ 


INTZBS 

IOCS 

IOCBAS 


0200 

OOIO 

E4F3 

0020 






I RQST 
KEYBDV 
1M1R2L^ 


D20E 

E420 

J25ZE 


LI NBUF 
I OS 
LPLML 


INTEMP 

INVFLG 

I0C6 

IOCBSZ 

KB CODE 

KEYDEL 

LBUEF 


0026 
0023 
E670 
0221 ) 
Q2B6 
E514 
OQ 10 
D209 
02F J 
20200 


0247 
DE CD 
-0234 


LINZBS 
LOG 10 


1C OPR 
IFP 

INSCLR 
INTI MV 
IOC1 
IOC 7 
IOC ERE 
KBD 
LB FEND 
LEDGE 


034C 

D9AA 

0020 

-E46B 

E4D6 

E519 

OOFF 

004B 

OOFF 

QQ02 


0000 

DED1 


M1PF 

1)001 

Ml PL 

0009 

HOOF 

1)003 

M3PL 

DOOB 

— MLML D 

02F7 

MEMTOP 

021 5 

HONOR G 

■ FOE 3 

MXDMOD 0010 

NMIFN 

D40E 

NMIRES 

1)4 OF 

NPNDEV 

0082 

NOTE 

0026 

NVALID 

0084 

OLD ADR 

00 5E 

O i DROW 

00 5 A 

OPEN 

0003 

DPNOT 

0008 

-OPNTMP 

0066 

POP l 

DOOC 

P1PF 

DOOD 

PPPi 

DOOE 

P3PF 

D007 

PADDl 0 

0220 

PADDL 1 

027 J 

PADDL. A 

0274 

PADDL 5 

0275 

PBCTL 

D303 

PBPNT 

00 ID 

MOJLE1 

02C1 

PCD! Rp 

OPCP 

PFNV 

D40D 

P I A 

DOOO 

PMJ3ASE 

D407 

POINT 

0025 

P ORTA 

D300 

FOR IB 

0301 

P OT2 

DP02 

P0T3 

D203 

POT 6 

DP 06 

P0T7 

D207 

rniNTv 

EL42Q 

PRIOR - 

D03 P 

PRVOPN 

0081 

PTEMP 

001 F 

PTHIQ1 

022 D 

PTRIG2 

027E 


LMARGN 

LOGCOL 

MOPE 

M2PF 

MAXDEV 

ML 3 IMP. 


iMEWCOL 

NMIST 

NQ.TDPN 

OLDCHR 

OPNIN 

O-VRRJJN 


0052 
0063 
DOOO 
D002 
0021 
0066- 


ICSPSZ 

INBUFF 

INSDAT 

1 OC 1 A 
IOCB 
IRGEN 
KB DOR G 
L.BPR1 

L OCKFL 
L OGMAP 
MOPL 
M2PL 
MAX IOC 
MODEM 


0061 
D4 0F 
0085 
00 5D 
0004 
_Q0 8E 


MEWROW 
NOCKSM 
NBIQN 
OLDCOL 
OP NINO 
P.QPJE 


i » 


J PI 


- PJRIC5 

HAMS X Z 
JtiQli 

RDONLY 
RMA RQN 

RTCI CIK 
SCRFIDT 

SDLSTH. 


0201 
0009 
OPE 4 
E.5A7 

0Q53 

0012 

0045 

0231 , 


JiERIN D20D 


_ PTRIG6 
RADFLG 
RAMTOP 

.ami - 

RCI3 

CVDN 

ROWAC 

SAVADR 

SCRENV 

SDLSTL 

SEROUT 


0202 

OOFB 

OOAA 

E5HF 

E587 

0039 

0Q70 

0060 

E410 

0220 . 

D20D 


P3PL 

PADDL 2 

PADDL6 

PBUFSZ 

PC0LR3 

PI YARG 

POKEY 

PQ10 L. 

pen 4 

POTGO 

PRNBUPL 

PT I MOT 

P7R3G3 

PTR1G7 

RADON 

RANDOM 

RC14 


ROWCRS 

SAV10 

SCRFLG 

SDMCT1 

stivbv 


DOOD 
DOOF 
0272 
0276 
00 IE 
Q2C3 
05E0 
D200 
D200 
D204 
D20B 
03CQ- 
001C 
027F 
0283 
0000 
D20A 
E574 
E5C3 
0027 
0054 
0316 
02BB 
Q22F 


P2PF 
PACTL 
PADDl 3 
PADDL7 
PCOL.RO 
J££NH 
PL YFVI 
P0KM3K 
POT 1 
POT 5 
PRINTR 
PRNQRG 
PTRIGO 
PTRIG4 
PUTCHR 
RAMLO 
RBI OKV 
RC1U3L - 
RC16 
RFNAMF 
ROWING 
SAVMSC 
SCR MEM 
SENDEV 
SHF AMT 


0005 

DO ID 

DOOF 

0051 

02BD 

D006 

D002 

002A 

0025 

0029 

0017 

0340 

0027 

002C 

00F3 

007D 

E4D8 

0340 

D20E 

F3E4 

057E 

022F 

0023 

02B2 

D008 

DOOA 

0080 

004D 











OOEE 

005B 

OOOC 

D004 

D006 

D302 

0273 

0277 

02C0 

D40C 

DD40 

0010 

D201 

D205 

0050 



EE78 

027C 

0280 

OOOB 

0004 

E47A 

£571 

E5B2 

0020 






0079 

0058 

0093 

£468 

006F 





* w| ■» * > » v/wur 


— i— 






~ „ ... v„ . . ^ . . 


CN 


E 

w 


3 

03 


5 


CFNTRAt INPUT/OUTPUT (CIO) 27 79 





■ 

SHF! OK 

02 BE 

SIN 

BD8 1 

BXI1V 

E4D9 - 

SIZEM 

DOOC 

SIZEP2 

DOOA 

SIZEP3 

DOOB 

SKSTAT 

D20F 

SOUNDR 

004 J 

— SiiTlMR- 

n2i<n 

C^C^pj 

n: n r- 

ST A IIS 

0001) 

STATUS 

W t — t i 

0030 

STICKS 

027 A 

STICKS 

027 B 

STR TGI 

0289 

STR I QD 


SUP 1 MR 

029E 

SUCCES 

•■■AvaffiOO — 

000 1 

TAB MAP 

02A3 

TEMP 

023E 

TFMP3 

03 1 5 

TINERl 

nnnr 

I 1 MCJUT 

008 A 

TINDEX 

0293 

TMPLBT 

02A 1 

TMPROW 

02 B 8 


Tin co noio 


TRIG! 


TRNRCD 
“I XT NSC 
UU&ULA- 
VI >17 AY 
VINTER 
-USERXN 


0089 
0294 
0700 
DO 1 C 
0204 
O20A 


VTIMR2 
WARMST 
wc i i d . 


0212 

0008 

-E5DJL. 


TSTAT 

TXTOLD 

VBREAK. 

VDSLS T 

VKEYBD 

VSEROC 

VTIMR4 

WAR NS V 

.WCX2-... 


0200 
020 8 
Q&OE 
0214 
1-474 
L6QA 


o 

V 


3)7 UNV 
312LP0 
SKCTL 
SPEC IL 
SSKCXL - 


S i I CKO 
ST I HER 
ST R 1 03 
SWPFLG 
T EMP 1 

1 1 MLR 2 

TMPC HR 
TMPXi 


D01 i £j£ 
03 1 9 
0296 
0206 


1ST DAT 
TXT ROW 
V COUNT 
VE07BL 
VP R CEO 
VSLEOR 
VVBL KD 
WC 1 1 
WC13 


WC 3 5 
XITVBV 
231: MP3 


E6 1 5 
E462 
OOP 9 


WNODE 

XMTDON 

ZTENP4 


0209 
00 3 A 
001-7 


WRONLY 

Z206B 


E465 
D008 
D20F 
OOOE 
0232 
0278 
D209 
0287 
007B 
0312 
0310 
0050 
029C 
DO 12 
0007 
0290 
D40B 
E400 
0202 
02 OC 
0224 
E605 
E5E5 
0083 
0020 


SJOORG 
B I ZEP 1 
SKRES 
BOR 

SIACKP 
ST ICK1 
STR 100 
SUB BP L 
SYSVBV 
TEMP2 
TINT LG 
TMPCOL 
T RAMS 7 
TRIG3 
TXT COL 
UNLOCK 
VCT ABL 
V INTRO 
VSCROL 

vt i m i 

VVBL K I 
WC 3 1 A 

. JgiCX4. 

WBYNC 
7 TEMPI 



E944 
D009 
D20A 
BED 1 
0318 
0279 
0284 
E677 
E45F 
0314 
0317 
02B9 
0006 
D013 
0291 
0024 
E480 
0216 
D405 
0210 
0222 
E5D4 
E5EB 
D40A 
OOF 5 


— 






it nw. ij 


— 








...... 












— - " f . •' " . I 


. . . W'W; " > ■>» — m — — 


INTERRUPT ^'gDL|R 

1 


0006 


JL4IzC_4CJ^ .£2__ 


E45F 4C D1 E7 
E462 4C 3E E9 


• » n t I ' I NTERRUPT HANDLER ' 
i LIVES ON DK1; INTHV. SRC 

MTXim « 6 SECOND REPEAT INTERVA4 

*~SETVBV 

— ■ RETyR 1 "j 

3MP SYSVBL 

viNP XITVBL I 




E46B 4C D5 E6 


1NT1NV 

JMP I II I N I T 


E4S0 B3 E7 ✓ 
paws nr> C7./ 


« i -VCTABL+INTABU - VDSL ST 


1-484 E7(/ 

E48& BP E / 


. WORD SYRTI VDSI SI 

- WORD SYIRQB VPRGED 

•WORD SYIRQB VINTER 

SYIRQB VBKEAK 


. WORD 





900£ 69 E6 









*«*90OC 
; 

1 f — •- 

1 UA Al. B TDfl 




901 1 09 F3 



9016 09 E7 
901 8 SI) FB 
901 B 09 B4 


I DO. 


#PIRQH 


90,90 60 


FF 


ST A 

$FFF9 



t DA 

#P IRQL 

FF 


ST A 

$FFF8 



J DA 

#PNMIH 

FF 


SI A 
1 DA 

♦FFFB 

#PNMIL 

FF 


ST A 

*FFFA 


/ 

RTS 
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INTERRUPT HANDLER 


IRQ HANDLER 


i JUMP THRU IMMEDIATE IRQ 
S Y S T E M IRQ: DETERMINE £ 


VECTOR, WHICH ORDINARILY POINTS TO 
CLEAR CAUSE, JUMP THRU SUP l WARE VECTOR. 





«■* 1 NTORG 

EARS A9 40 


THIN IT 

1 DA 

#$40 

E6D7 8D OE 

D4 


STA 

NMIEN 

PARA A 9 38 



L DA 

#$38 

- .. LADil S),> 02 

ns 


m a 

DArri 

PARE BD 03 

D3 


>1 1 ft - - 

ST A 

4 

PBCTL 

LAPP A? 00 



t DA 

#0 

LAP 4 3D 00 

D3 



PORTA 

E6P7 3D 01 

D3 


ST A 

-i- V— 4* 1 \ 1 I J 

PORTB 

EAEA A 9 3C 



l DA 

#$3C 

. fafc nn 02 

ns 


cn a 


EAEF BD 03 

D3 


ST A 

r 1 w i I— 

PBCTL 

PAP 2 60 



RTS 


. EAE 3. AC 16 

02 

PIRQ 

JMP 

< VIMIRQ) 

E6F6 48 


BY IRQ 

PHA 


E6F7 A9 10 



LDA 

#$10 


D2 


n r » 


FAFC DO OD 



BNP 

SYIRQ1 

EAFE A 9 EF 



LDA 

#$EF 

£700 HD OE 

D2 


STA 

IRQEN 

£703 AS 10 



LDA 

POKMSK 

£705 BD OE 

D2 


STA 

IRQEN 

F 7 OB AC OC 

02 


JME 

( VSFROR ) 

E70B A9 20 


SYI RQ1 

l DA 

#$20 

E70D 2C OE 

D2 


I i J T 

IRQST 


VHL UN BUF DEIST GFT-**-frPUR NOW*** 
ENABLE DISPLAY LIST, VERTICAL BLANK 
LOOK AT DATA DIRECTION REGISTERS IN 


MAKE ALL INPUTS 


P I A 




BACK TO PORTS 


SAVE A ON STACK 
SERIAL OUT READ BIT 
E.SE R O U T RDY 
JUMP IF NOT 


RESET ENABLE BYTE 

... JUMP -T H R U V ECTOR 
SERIAL IN READY BIT 


V 


£710 JKLOD 


ET/12 

£714 

£712 


A 9 DF 
SD OE D2 
t\ h 10 


E719 

£ 7 1 C 

E71E 

E721 

E723 

£725. 


8D OE D2 
6C OA 02 
A 9 08 
24 10 
FO 12 
.2 0 QEJD2 




E 720 
f 72A 


DO OD 
A 9 F7 


BNE 

EDA 

STA 

ST A 

JMP 

LDA 

BIT 

BEG 

liX'J 

BNP 

I DA 


SYIRQ2 

#$DF 

IRQEN 

.POKMSK.. 

IRQEN 

(VSERIN) 

#$08 

POKMSK 
SYIRQ3 
IRQEN. 


S» • R 1 Al OUT COMPLETE* 
ONLY CHECK IF ENABt 11} 
SINCE THIS IS A WIERR 
HARDWARE 


CASE IN THE 


SYIRQ3 

#$F7 


P 72C 

OD OE 

D2 


S3 A 

IRQEN 

E72F 

AD 10 



LDA 

POKMSK 

£731 

□D OE 

D2 


STA 

IRQEN 

! 734 

AC OE 

02 


OMR 

( VSjERQC ) 

£737 

AD OE 

D2 

SY1RQ3 

t DA 

IRQEN T 

£73 A 

6A 



ROR 

A 

E73B 

DO OD 




SYIRQ4 i 

£7 3D 

A 9 FE 



1 DA 

#$FE 

E73F 

BD OE 

D2 


STA 

IRQEN 

£742. 

A.«7 20 



1 DA 

POKMSK 

P/44 

BD OE 

D2 


STA 

IRQEN 

174 7 

AC IfK 02 


JMP 

(VTIMR1) 

£74 A. 



SYIRCL4 

ROR 

A 

P 74B j 

fi OD; 

IJ pjh 



DCS 

SYIRQ5 

P74DI 



L DA 

#$FD 

F74FJJ 

pgUQEi D2 - 

ti i j o, 


JI1A. 

IRQEN 

P7Sr# 


1 DA 

POKMSK 



0 CHECK TIMERS 
TIMER 1 


4 


\ „ 



c 


E75 
E757 

i 7 DA 

E7DB ITfT OA 
JL7.5D AV FJB. 
E75F BD OE D2 
F762 A5 10 
L7A4 BD OE D2 


aiA 


rTVTv, OL D2 

E76C A 9 BF 
E 7 6E BD OE DP 
_E771 AD 10 


^TyTrK?7r 


JMP 

Trrr 

bvs 

l DA 
HTA 
L DA 


f • 

E773 BD OE D2 
E776 6C 08 02 
£779 BO 10 

ST A 
JMP 

SYTR07 

-*• 

m 

E 

o 

E77B A 9 7F 
E77D BD OE D2 
JE 7B0 AS 10 

1 DA 
ST A 
LDA 

LL 

m 

i m 

tr, 

00 

O 

E782 3D OE D2 
£785 A9 00 

- _ E7Q L EI) U 

ST A 
l DA 
ST A 


E 789 BD FF 02 

ST A 

• 

E78C BD F 0 02 

ST A 


EZSE QS 4D 

SI A 


E79J 6B 

PL A 

• 

£792 40 

RTI 


E7? 3 2C 02 03 

SYIRQ8 BI1 


£796 10 06 
E798 AD 00 D3 


DPI 
l DA 



F79B AC 02 

02 


JMP 


E79E PC 03 

D3 

SYIRQ9 

FJ I T 


E7A1 10 06 



BPE 


XZA3. 411 Q.L 

r>,i 


1. DA 


E7A6 6C 04 

02 


JMP 


E7A9 OB 


BY) ROA 

PHP 


f - 74, A 6 8 



FI A 


E7AB 29 10 



AND 


B7AD 10 03 



BEG 


E7AF AC 06 

03 


sJMP 


E7B2 A8 


SY) ROB 

Pi A 


F7D3 40 


SYRT .1 

R T 1 


- - - ■ ' -V - ■ 







IRQEN 
< VTIMR2) 
A 

SYIRQ6 

#*FB 

IRQEN 

POKMSK 

JLRQEN 


n 



< VTIMR4) 

nrot'N UKFCK BREAK KEY# KEYBOARD IN I I RRUPTS 

SYJLRQ7 JLE. KEYBOARD 

#*BF 

IRQEN 

POKMSK 

IRQEN 

(VKEYBD) 

__SY I R Q8 BREAK KEY 

#*7F 

IRQEN 

POKMSK .. ... 

IRQEN 

#0 

- BRKKE.Y SO BREAK KEY_ EL AO _ 

SSFLAG START /STOP FI AO 
CRSINH CURSOR INHIBIT 
ATRACT “I URN OFF ATRAC"! MODE 


EXIT FROM INI ^ 

PROCEED ***I GUESS*** ^ 

SYIRQ9 

PORTA CLEAR INT STATUS Jill 
< VPRCED ) 

PBCTL INTERRUPT ***I GUESS*** 
SYIRQA 

PORTS — £1 EAR J'NX STATUS. . 


(VINTER) 


~7 


SEE IF SOFTWARE BREAK 


#*10 
SYIRQI3 
CVJBREAK ) 


B BIT OF P REGISTER 


UNIDENTIFIED INTERRUPT, JUST RETURN. 
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) NTERRUPT HANDLER 



DETERMINE CAUSE AND JUNE THRU VECTOR 






— ...... 




02 *•» < VVBLKI ) JUMP THRU VECTOR 

— : — — ; — iii . 




INTERRUPT HANDIER 


a. SYSTEM VBLANK ROUTINE 

I 

i 1 NO ENAME COUNTER PROCESS COUNTDOWN TIMERS. EXIT If I WAS SET, CH AR I 
i SJLl DL 1ST L* DLISTH, DMAC1L EROM RAM CELLS. DU SUE 1 WARE REPEAT, 

f 


# 

£ 7D1 E6 14 

SYSVBI 

INC 


£.703 DO 08 


_ BNL 


E7D5 E6 4D 


INC 

• 

E7D7 E 6 13 


INC 


E7D9 DO 02 


BNE 


B7DB EA 12 


INC 

# 

E/DD A9 FE 

SYSVB J 

L DA 




1 DX 




LDY 

; • 

E7t3 10 06 


BPL 


E7E5 85 4D 


SI A 

V a 

E7E7 A6 13 


L DX 


E7E9 A9 F6 


L DA 


E7EB 85 4E 

VBATRA 

STA 

It 

«• 

2* a 

E7ED 86 4F 


ST X 

!• 

E7EF A2 00 


LDX 

30 

lb 

. E7F1 20 F5 ES 


USR_ 


RTCLOK+2 

SYSVBI 

ATRACT 

RTCLOK+1 

SYSVBi 

RTCLOK 

#*FE 

#0 

ATRACT 

VBATRA 

ATRACT 


INC ERAME COUNTER 


INCREMENT ATRACT (CAUSES ATRACT WHEN MINUS) 


•C ATRACT T SET DARK MASK TO NORMAL 
SET COI HSU TO NOR MAI 
TEST ATRACT FOR NEGATIVE 
WHILE! POSITIVE. DONT CO INTO ATRACT 
IN ATRACT, SO STAY BY STA *FE _ 


RTCLOK+1 
#*F6 
DRKMSK 
COLRSH 

#0 POINT TO TIMER1 

DCTIMR GO DECREMENT TIMER 1 


COLOR SHIFT f f • ( U I ( >WcT) R 'I CLOK+ 1 
SET DARK MASK TO DARK 


I 


— ■ 1 ■ — ■ 






£7£6 20 EF ES 

JZ7E9 A5 40 

E7FB DO 08 
E7FD BA 
E7FE BD 
£8 01 29 
E&03 FO 

r-BOD 4C 




SYSVB2 BRANCH IF STILL COUNT INC 
JT I MR 1 GO JUMP TO ROUTINE 
CRITIC 

XX IT GO IF CRITICAL SET 

SEE IF I WAS SET 


E808 58 
E 809 AD 
FBQjC — 8D_ 


03 

* _ XX XT 

— rr T owj - 



AND 

BEG 



PENV 'T 





£832 A 2 08 
E834 BD CO 02 
£837 40 4 F 
£839 25 4E 
E83B 9 D 12 DO 

£88 F JO F3 
£841 AD F4 02 
E&L4 8D 0? D4 

£847 AD F3 02 
E84A 8D 01 D4 


E84F 20 F5 E8 


FOINI-IQ TIMER S 


DCTIMR 








Moore Business Forms, Inc. sv 14I2T 


INTERRUPT HANDLER 


E852 

E854 

E857 

P8P9 

EB5A 

E85B 

E8PE 

E061 

E863 

E866 

JL869 


EB6B 


DO 03 
30 F2 EB 
A2 02 
L8 

~E8 

HD .18 02 
ID 19 OP 
10 06 

20 F5 E8 
9D 26 02 

EO 08 

DO EC 


SYSVB4 

SYSVBB 




EQ6D AD OF D2 
£870 29 04 
E872 FO 08 

t 874 AD FI 02 
E877 FO 03 
•EB79— CE. FI 02 


UYSVBA 


; CHECK 


KEY UP 


BNP 
JOB 
l DX 
I NX 
1NX 

SYSVB4 
JT IMR2 

#2 

IF didnt go zero 

GO JUMP TO TIMER2 
RESTORE X 

1 DA 

CDTMV1, 

X 

ORA 

CDTMVi+1, X 

BP© 

SYSVBA 


JSR 

DCTIMR 

DECREMENT AND SET 

ST A 

CDTMF3- 

4, X 

CPX 

#8 

OLE IF DONE Ai 1 A 

BNP 

SYSVBB 

LOOP 

BE BOUNCE 

COUNTER. _ 

LDA 

SKSTAT 


AND 

#$04 

KEY DOWN BIT 

BE© 

SYVB6A 

IF KEY DOWN 


ROUT 1 NP 


FLAG IP NONZERO 


F87C AD 2B 02 
JE87F J H_JL2L 


CHECK 


SYVB6A 


E881 AD OF DP 
E884 29 04 
E8B6 DO 60 
E888 CE 2B 02 
E88B DO OB 


80 COUNT IT 
I DA KEYDEL 

BE© SYVB6A 

DEC KEYDEL 

cjjirT..iAn E REPEAT 

SR T I MR 
SYSV37. 
SKSTAT 
#$04 
SYSVB6 
SR T I MR 
SYSVB7 


SOFTWARE 
I DA 
BE& 

I DA 
AND 
BME 
DEC 
BNP 


KEY DELAY COUNTER 
IP COUNTED DOWN ALREADY 
COUNT IT 
TIMER 

OOESNT -COUNT _ „ 


! 9 


E88D A 9 06 
E88F SD 2B 02 
E892 AD 09 D2 


a -TIMER RAM OUT - RESET 


£895 8D FC 02 


. LO90_j:\O-JQJL 


E89A 
E89C 
P89P 
E8A0 
ESA 1 
E8A2 


A2 03 
B9 00 D3 

M 

4A 

4A 

AA 


; READ 
UYOYii:/_ 

cn i oop 


I DA 
STA 
LDA 
STA 
CAME 
LDY 
I DX 
I DA 
I SR 
I SR 
l SR 
I SR 


#SRTIM2 
SR T I MR 
KB CODE 
CH 

CONTROLLERS 

*1 

#3 

PORTA, Y 
A 
A 
A 

_A 


CHECK KEY DOWN BIT 

BRANCH IF NO LONGER DOWN 

COUNI FRAME OF KEY DOWN 

BRANCH IF NOT RUN OUT 

AMD SIMULATE KEYBOARD IB© . 

TIMER VALUE CV/O S6CObJ&). 

SET TIMER 

GET THE KEY 

PUT INTO CH 


E8A3 9D 78 02 


ST A 

STICKO, X 

STORE JOYST I CK 

E8A6 CA 


DEX 



EBA7 B9 00 03 


LDA 

PORTA, Y 


E8AA 29 OF 


AND 

#$F 


E8AC 9D 78 02 


STA 

STICKO, X 

STORE JOYSTICK 

E8AF CA 


BEX 



E8B0 88 


DEY 



FOB 1 10 E9 


BPL 

STLOOP 


E8B3 A2 03 


LDX 

#3 


E8B5 BD 10 DO 

STRl 

LDA 

TRIGO, X MOVE 

JOYSTICK TRIGGERS 

_ E3118 90-04 02 


S'l A 

SIR I GO, X 


E8BB BD 00 02 


LDA 

POTO, X MOVE 

POT VALUPS 

F8BE 90 70 02 


ST A 

PADDLO, X 


E8C1 BO 04 .02 


LDA 

P0T4, X 


ESC 4 90 74 02 


ST A 

PADDL4, X 


ESC 7 CA 


DEX 



EEC 3 10 EB 


BPL 

SIRE- 


P8CA HD OB DP 


ST A 

POTGO START 

POTS FOR NEXT TIM! 


**»U|«ng «Jooyy 


INTERRUPT MANDL ER 


- E8CD AL 06 

JCF AO 03 
ESDI B9 78 02 

ES1H 4A 

E8D5 4 A 
E0D6 4 A 
EBD7 VO 70 Q2 
E80A A9 00 
E80C 2 A 
FOOD 9D 3 CM2 
E8E0 CA 
E8E1 CA 


PTRLP 


E8E3 10 EC 


■£QE 




24 02 


00E3 

0098 

£8E8 A9 OO 


LDX _ . 

#6 

I BY 

#3 

LDA 

STICKO, Y 

LSR _ 

„ A 

1 SR 

A 

1 SR 

A 

SI A 

ptrigi, X 

I BA 

#0 

RDL 

A 

SIA 

PTRIGQ* X 

BFX 


DEX 


BEY 


BPI 

PTRLP 

JNP .. 

(WBLKD) 


TRANSFER BITS FROM JOYSTICKS 
TO PADDLE TRIGGERS 


E8EA 80 2B 02 
E8E0 FO A9 
L8EP 6C.J2&. 02. 


E8F2 6C 28 02 


SV7H 

SV7L 

SYS Vll 6 LDA 
ST A 
BEG 

-Oixmi j mfl 


SYSVB7/2B6 

-256*SV7HK3YSVB7 

#0 


DEEER RED 


JTIMR2 JMP 
* 


SR T I MR ZERO TIMER 
SYSVB7 UNCOND 
(COT M AIT 


(CDTMA2) 




TO DECREMENT A COUNTDOWN TIMER 
> ENTRY X=OFFSET FROM TIMER 1 
; EXIT A, P-ZERD IF WENT ZERO, FF OTHERWISE 




E8FD BC IS 02 
FOES DO 08 
TO FA BC -19 Q3 


*'■- 1 ni l ' ■ - — — ■ ~ ■ - 1 ■ I I I I . 1 ^ . f. . 

DCT1MR I 1)Y CDTMV1 , X LO BYTE 

BMi DCTIMi NONZERO, GO DEC IT 

JUBiL. CDTMV1+1 , x SE E IF BOTH ZERO 

BEG DCTXF YES, EXIT NONZERO 

DEC CDTMV1+1.X DEC HI BYTE 




ESFD FO 10 
EBFF DE 19 02 
D£_iaj22. 




£905 DO 08 
E 90? BC 19 02 

l- 90 A no 03 

E90C A9 00 
E90E 60 
L'/0F-A9 EE.. _ 






iica itu... dec 

BN! 
L DY 
l!Wt 


CDTMV1 , X 




DCTXF 
CDTMV1+1, X 
DCTXF 


DEC l U .BY 1 S 




jxax! 


1-9 11 60 


LDA 

RTS 

LDA 












WENT ZERO. RETURN ZERO 


RTS 


RET URN NONZERO 
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INTERRUPT NANDI FR 


r 


£912 OA 
E913 8D 
E916 A9 
-E&ia B D 


2D 02 
00 

OE D/L 


E91B 8 A 
E9JC AH 
E21F 9D 
E922 98 
H 923 91) 
-£926 A9 
E928 8D 
E92B 2C 
E92EL50 


2D 02 
17 02 


16 02 
40 


OE D4 
OF D4 
OB 


E930 A9 E9 
£933 An 


£933 A 9 3D 
£935 48 
E936QH ___ 


£937 48 
£938 48 
-£23 9 48 


£98 A 6C 22 02 
E93D 60 
00E9 _ . 


003D 







£93£ 68 
E93F_A3 


£940 68 
£941 A A 
-£942 68 




£943 40 
Q0£6 
QQE3 . _ 


i BUBS^iUl INE TO SET VERTICAL BLANK VECTORS AND 1 1 MLR 8 
i ENTRY X«HI,Y~LO BYTE TO SET “ 

»' A* 1-5 TIMERS 1-5 

4 

; 7 DEF VBLANK 


SET VBL ASL 
ST A 
LDA 

— 31A 


A MUL BY 2 

INTEMP 

NMIEN OFF BUT VBLANK SEE k»h:-} (i;< NOW*** 


INTEMP 
CDTMV.1-1 j X 




T XA 
LDX 

ST A 

TYA 

STA CDTMV1— 2r X 

LD^ 1 ; #*40 DEIST OFF*#*HOR NOW***:-, VBLANK. on 

STA NMIEN 

■ <J 1 NMIST SEE IE A VBLANK HAPPENED 

BVC SETVB 1 —IE NOT , GO EXIT 

SIMULATE VERTICAL BLANK NM1 
LDA #SV1H 

-BHA BUSH. STACK AS I £ JLNT ERRUPJ 


I DA 
PHA 
PHP 
PHA 
PHA 
10JA 


#SV1L 


JMP 

SETVB 1 RTS 
SV1H - 
SV1L 


— __ 

DUMMY A 
DUMMY X 
DUMMY Y 


< VVBLKI ) GO THRU VBLANK VECTOR 
SETVB 1/256 




~256*SV 1 « J f SE T VB 1 




I JilM .VERTICAL BLANK 


xiTvm 


PL A 
T AY. 









PL A 
TAX 
PEA 




PIRGH 

-PJLRQE 


RT :i 

:z: 


UN STACK Y 
UNS'IACK X 
UNSTACK A 


OOP 7 
00IT4 


AND GO BACK FROM WHENCE. 

P IRQ/256 
•256*P IRON i p IRQ 
PNMI/256 
-256*PNMIN+PNMI 


£944 
0014 00 




PNM1H 
PNMIL « 

; SPAUL BYTE W MODULE TOD LONG FLAG 

CRNTPC ^ # 

*= 4 

1NT3PR .BYTE SI OORG-CRNT PC INTHV IS TOO LONG 
. END 
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J NT ERR UP! HANDLER 



SYMBOL 

TABLE 





, ADDCUR 

020L 

ADRESS 

0064 

AFP 

DOOO 

ALL POT 

ANT IC 

D400 

APPEND 

0001 

APPMHI 

OOOE 

AT AC MR 

1 A'l AN 

BE 4 3 

ATRACT 

004J) 

AUDC 1 

D201 

AUDC 2 

At me 3 

0205 

AUDC4 . 

D3Q7 

_ ALLDCXL 

D20B 

AUDXl 

AUDI-2 

D202 

AUDF3 

1)204 

AUDF4 

D206 

BAD IOC 

HADMQD 

0091 

BFENHI 

0035 

Bi-LNLO 

0034 

B I T M3K 

HI 1 M 

028A 

BLKBBV 

L4Z1 

BOOT? 

0009 

BOC1TAD 

BU I SCR 

02BF 

BPTR 

003D 

BRKABT 

0080 

BRKKEY 

DUE ADR 

00.1 5 

BUFCNT 

006B 

BUFRFL 

0038 

BUFRMI 

nui-Ri n 

0083 

BUFBTR 

-Q06CL. 

_ CARBUF Q3FD 

_ „ CASE ! V 

CASFL G 

030F 

CAS INI 

0002 

CASORG 

EF41 

CASSBT 

C ASSET 

0043 

CAUX1 

023C 

CAUX2 

023D 

CBAUDM 

CLAUD L. 

031- E* 


023B 

C DE VIC 

023A 

CDI MAI 

CDT MA2 

0228 

CDTMF3 

022 A 

CDT MF4 

022C 

CDT ME 5 

CDTMV1 

0218 

CDTIW2 

021 A 

CDTMV3 

02 1 C 

CDTMV4 

Cl) 1 MOM 

033 n 

CM 

03F C 

CiLL 

Q2F2 

CM ACT 

CM ACT L 

D40 J 

CHAR 

OPE A 

CHBAS 

02F4 

Cl IBASE 

CHKERR 

008F 

CHKSNT 

0038 

CMKSUM 

0031 

CHRORG 

C 1 flCMR 

0O2H 

CXOINV 

E46E 

CIOURG 

E4 A6 

C l Li V 

CIX 

00F2 

CKEY 

004 A 

CLOSE 

OOOC 

COI AC 

CHI BK 

DO 1 A 

COLORS 

0055 

COLDST 

0244 

C0LD5V 

CCILINC- 

007 A 

.COLOR 0 - 

DEC 4 

COLOR-1- 

G.2CEL 

- — Q0LQR2 — 


D20S 

02FB 

D203 

B2QO 

0086 

006E 

0242 

0011 

0033 

E440 

004B 

02EF 

0226 

022E 

021E 

02F3 


D409 

EOOO 

0072 

E477 

JQ2C.6 




COLOR 3 
C0LPF2 
CPL P M2 


DO 18 
1)014 


1)0.1 V 
DO ID 


COL PMO I 
CQLR3H 


DO 17 
COLE Ml DO 13 





CONSOL DO IF 


COS 

CRITIC 

c su iiiy. 


BD73 

0042 

■E47P, 


DAU) 


COUNTR 

CRNTPC 

.CSTAT 


007E 

E944 

JQ2XI& 


CR 

CRSINH 


009B 

02F0 

JDQOO 


CRETRY 
CRSROR 
DA UX.L 


0036 

008D 

Q3QA 




1 

J&JLim &9QZ 


1 




ft 


0304 
0302 


PEGFLG 
DEL TAR 


OOFB 

0076 


DEGON 

DERROR 


0006 

0090 


DELETE 
DFL AGS 


0021 

0240 


DELTAC 

DIGRT 


'1C 0300 

0077 
OOF 1 



DRAWL N 

' 0053 

02A0 
001 1 

DLISTH 

DRETRY 

D403 

. 

OOSB 

0037 

DL I STL D402 
DPS INI OOOC 
PRKMSK 004E 

DM ACTL 
DOSVEC 
RSKFMS 

D400 

OOOA 

0018 

DSKIMV 

E453 

DSKORG 

EDEA 

DSKTIM 

0246 

DSKUTL 

001 A 

DSP FI . G 

02FE 

DSTAT 

004 C 

DSTATS 

0303 

DTIMLO 

0306 

DUN IT 

0301 

DUNUSF 

0307 

DV3TAT 

Q2EA 

LDiiiiV 

_E40Q 

FEXP 

001: D 

ENDPT 

0074 

E LIFER R 

0088 

FRRFLG 

023F 

FSCFI. Q 

0PA2 

ES l&N 

00 EF 

EXP 

DDCO 

E XP 1 0 

DDCC 

£Aim 

DA66 

FASC 

DOE 6 _ 

FCHRFL 

OOFO 

r-Di v 

DB28 

FE OF 

003F 

FILDAT 

OPED 

FIL FLG 

02B7 

E 1L L 1 N 

0012 

I T DOP 

DD8D 

FLDOR 

DD89 

FL DIP 

DD9C 

EL DIR 

DD98 

OJ'Tft 

-QQEC 



! . W 07 pn 


EMQL 

DADB 

1 NC NOT 

0092 

FORMAT 

0022 

FPI 

D9D2 

FPREC 

0006 

FPSCR 

05E6 

FPSCR1 

051 C 

FPTR2 

OOFE 

FRO 

00D4 

FBI . 

OOEO 

_EB2 . 

Q0L6 

FRE 

OODA 

FBLQ 

0040 

FRMFRR 

00 SC 




05E6 


05EC 

F SI OP 

DDAB 

FSTOR 

DDA7 

FSUB 

DA60 

FTYPE 

003E 

GET C HR 


CETREC 

0005 

CLBABS 

Q2JE0 

GJXRJliH 


GR ACTL 

DOJD 

GRAFM 

DO! 1 

CRAFPO 

DOOD 

OR AFP 1 

DOOE 

0RAFP2 

DOOF 

GRAFP3 

DO 10 

HAT ABS 

031 A 

HITCLR 

DO IE 

HQLD1 

0051 

HOLDS 

Q29t 

H0LD3 

029D 

HUI D4 

02BC 

HOI D5 

02BD 

HOLDCH 

007 C 

HPOSMO 

D004 

HP0SM1 

D005 

1 IP0SM2 

1)006 

HP0SM3 

D007 

HPUSPO 

DOOO 

HP0SP1 

D001 

1 IP0SP2 

0002 

HPQSP3 DQQ3 

HSCRQL 

UAQA. 

1CAX1 

jQ24A 

1CAX12 

002A 

ICAX2 

034B 

ICAX2Z 

002B 

ICBAH 

0345 



■ "J'vwrr 
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IBflSPjg JQOG2 


I » 1 WWI IW 

X1EQSR3 


1CAX1Z OOP A 


ICAX2 


uooa. 

034 B 


i ii Uuir \j 

liSCiiOL 

ICAX2Z 


uuuu 

0404 

002B 


i iruor J 
LCAX1 
It BAH 


uuui 

034A 

0349 


INTERRUPT HANDLER 


[• 


r 


I CBAHZ 
JLCIiUiZ 
I CCOMT 
ICHID 
ILPTI1Z 


0025 

0027 

0017 

0340 

-0027- 


TCSPRZ 
IHIN3T 
1WXABS 
I NTSPR 
IOCBAS 

KBD 

LBFENB 

LEDGE 

t OCKFL 
I OGMAP 


002C 
E ADS 
0200 
00 J 4 
0020 
D2QE , 
004 B 
03FF 
0002 
0023 
02B2 


ICBAL 0344 
I CELL 0342 
ICCOMZ 0022 
ICHIDZ 0020 

Q3 4A 

ICSTA 0343 
INBUFF 001-3 


ICBALZ 

1CBLLZ 

ICDNO 

1CIDN0 


0024 

0028 

0341 

002E 


1CETI.Z 0026 


INTEMP 

INTZBS 

IOCBSZ 

JTirni 

KB DOR G 

l.BPRl 

LINBUF 

LOG 

LPENH 


022D 
00.1 0 
00 JO 
L2U- 
F3L4 
057E 
0247 
DECD 
0234 


I CST AZ 
J NSC LR 

i nt i m 

INVFLG 

IOCFRE 

J3HMR2 

KFYBDV 

LBFR2 

LINZBS 

LOG 10 

LPENV 


0023 

0020 

E46B 

02B6 

OOFF 

E8F2 

E420 

057F 

0000 

DED1 

0235 


K-BI II 

IC.COM 

1 CDNOZ 

ICPTH 

LCSFR 

IFF 

INSDAT 

INTORC 

IOCB 

IRQEN 

KBCUDE 


0349 

0342 

0021 

0347 

034C 

D9AA 

007D 

E6D5 

0340 

D20E 

D209 


KFYDEL 
t BUFF 
LMARGN 
LOGCOL 
MOPE 


M2P! 

DOOA 

M3PF 

J 

0003 

n ii L 

M3PI 

u uuv 
DOOB 

N2PF .. . 

MAXDFV 

MAX I DC 

0030 

MEMLO 

OPE 7 

Mi NT OP 

02E5 

Ml TT MP 

-MODEM 

004 D 

HONOR G- E0E3 

MXDMQD 

0010 

NEWCOL 

NEURON 

0060 

NMIEN 

D40E 

NMIRES 

D40F 

NM I ST 

NOCKSM 

003C 

NONDEV 

0082 

NOTE 

0026 

NOT DON 

MSI ON.. 

-POLE 

NVAL I n 

non a 

ni DA DP 

nnsF 

rn n/'M id 

OLDCOL 

00 5B 

OLDROW 

005 A 

OPEN 

0003 

0PN1N 

0PN1N0 

OOOC 

OPNOT 

0008 

OPNT MP 

0066 

OVRRUN 

—POPE 

D004 

- H OPE 

DOOC 

P1PF 

DOO 1 ^ 

f. j 1 PI 

P2PF 

0006 

P2PL 

DOOE 

P3PF 

D007 

— IrUtfrl.,, ■ , - • I 

P3PL 

PACTL 

0302 

PADDLO 

0270 

PADDL 1 

0271 

PADDL2 

PADDI 3 

-.-0273 

PADDI 4 

027/! 

PADDI F> 

D27 c > 

PADDI ** 

PADDL 7 

0277 

PBCTL 

0303 

PBPMT 

00 ID 

PBUFSZ 

PCCJl.RO 

02C0 

PC0L.R1 

02C 1 

PC0LR2 

02C2 

PC 01 R3 

PENH 

D40C- . —PENV 

04 OD 

P 1 A 

D300 

p r 

PIRGH 

OOF 6 

PIRQL 

OOF 3 

PL.YARG 

05E0 

Pl YEVI 

PMBASE 

D407 

PNMI 

F7B4 

PNNI 1 

E7BC 

PNMIH 

LNNIL _ 

00114- 

POINT 

002 5 

PflKFY 

D2DD 

nnu moi/ 

PORTA 

D300 

PORTB 

0301 

PCJTO 

— UftUU . .. 

D200 

i Umlul\. 

POT 1 

POT 2 

0202 

P0T3 

D203 

POT 4 

D204 

POT 5 

-EXH6 _ . 

11206 

P0T7 . 

0207 

POT GD 

DPOB 

DO T MTP 

PR INTV 

E430 

PRIOR 

DO IB 

PRNBUF 

03C0 

: lU 1 M 1 i . 

PRNORG 

PRVOPN 

0081 

PTEMP 

00 IF 

PTIMOT 

00 1C 

P 1 R I GO 

- . PTRlfil 

0270 

.PTRIfi? , 

- Q27F 

— E1RLG3- 

Q27E 

.LMRJLG4 


02F1 

0580 

0052 

0063 

DOOO 

D002 


0021 

0066 

0061 

D40F 

0085 

0050 


0004 
008E 
DOGD 
DOOF 
0272 
027 A 


PUT CHR 
-RAMLEL_ 


RBLOKV 

RENAME 

.ELlU I NC 


OOOB 

-0004. 

E47A 

0020 

-QQZ'Z 


SAVMSC 0033 
SCRFLG 02BB 

SDMCTi 022F 

SETVB1 E93D 
SHF l OK 02BE 
-SHIV EA59 


PTRIG6 
PUTREC 
RAI1SIZ. 
RDONLY 
RMARGN 
-RJCLOK - 


0282 
0009 
Q 2L 4 
0037 
0053 
0012 


SCOLLP 
SCR HEM 
-SENDEiZ 
SE'TVBL 
SIN 

c • 


PTRJG7 
RADFLG 
RAM J OP 
RECVDN 
RDWAC 
-3AVADB 


S1XEM 


SIZEP2 

SKSTAT 

SR TIMS 

STACKP 
ST ICK1 
SILQLI P 


DOOA 
D20F 
00 06- 
OS. I 3 
0279 
■ E09C- 


STRIG3 0287 


SI.ZEP3 

SOUNDR 

SRTJMfi. 

STATIS 

STICK2 

SL R I GO 


E334 
0093 
L463 
E912 
BD81 
LiUQC -- 
DOOB 
004 1 

022 H 
000 D 
027 A 
-0204 


STRL 


BBS 


SCRI DT 
SDI STH 
SERIN— 
SETVBV 

sioinv 

S1ZLP0 
SKCTL 
SPECIL 
SSf-LAG 
ST AT US 
ST I CK3 
SIB 101 
SUB 7 MP 


0283 

OOFB 

006A 

0039 

0070 

-0068 

0045 

0231 

D20D 

E45C 

E465 

0008 

D20F 

OOOE 

02FF 

0030 

027B 

0 285 

029E 


PTRLP 
RADON 
RANDOM 
REDGE 
ROWCRS 
-3AVIIL 
SCRENV 
SDL STL 
3LRQUT 
SHF AMT 
SIOORG 
S1ZLP1 
SKRES 
SOR 

SSKCXL 
S I I CKO 
ST I MLR 
-SIlilGO- 
SUCCES 


00 IE 
02C3 
E6F3 
DD40 
00E7 
0010- 
D201 
D205 
0050 
EE78 
027C 
0280 
ESDI 
0000 
D20A 
0027 
0054 
0316 
E410 
0230 
D2QD 
006F 
E944 
0009 
D20A 
BEB1 
0232 
0278 
D209 
0286. 

0001 
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• 

INTERRUPT HANDi 

-ER 


• 

h* ftj 

SV1H 

O0E9 

SV1L 

0030 


___ IM'ELG 

QO'/ll 

sly irq 

E6I 6 


BY1RQ3 

7 

SYIRQ4 

E74A 

# 1 

BYIRQ7 

E779 

SYIRQ8 

E773 


BY I RGB 

L7B2 

SYRTJ 

LYirj 


SYSVB3 

EB08 

SYSVB4 

E857 

• 

SYSVBA 

E ©69 

SYSVBB 

! 059 


3YVJJ6A 

EB>‘£ 

TAB MAP.-. 

02A3 


TEMP2 

03 J 

TEMP 3 

031 S 

• 

TIMFLO 

0317 

T I MOUT 

000 A 


TMPrr « 

. PPR9 

THPi BT 

02A1_ 


TRAMSZ 

0006 

TR 100 

DO 10 

• 

TR J 03 

D0J3 

TRNRCD 

0007 


TXT COL 

0291 

TXTMSC 

0274 


UNLOCK 

0024 

USAREA 

0480 

• 

VCOUNT 

D40B 

VC TAB L 

1-400 


VFPTfM- 

I 400 

UTMIRO 

021 A 


VHRCED 

0202 

VSCROL 

1)405 

# 

VSERQR 

020C 

VT I MR i 

0210 


VVULKD 

0224 

y.yjBLKi 

0222 


WMODE 

02B9 

WRONLY 

0083 

• 

XITVBV 

E462 

XMTDON 

003A 


/ .TEMPI 

OOFS 

Z TEMP 3 

pop 9 

# 


■ v'- ■ .. 

• r*- * • • • 




0V7H 

00E8 

BV7I 

0098 

S.Y1KQ1 

E70B 

SY1RQ2 

E71F 

BYIRG5 

E75A 

SYIRG6 

E767 

SYI RQ9 

E79E 

SYIRGA 

E7A9 

3Y8VB1 

E7DD 

3YSyii2 

E7F9 

SYSVB6 

E8E8 

SYSVB7 

E898 

SYSVBL 

E7D1 

SYSVBV 

E45F 

_ 1 LlH! ' 

023E 

TLHP 1 

0312 

T J ME R 1 

030C 

TIMER 2 

0310 

T 1 MD EX 

0293 

TMPCHR 

0050 

IMEXIOU 

02B8 

1 HP * 1 

QP9C 

TR 1 01 

DOl 1 

TR 1 02 

DO 12 

TOT AT 

0319 

TSTDAT 

0007 

I XT OLD 

0296 

TXT ROW 

_0290 

7 HAT RA 

E7EB 

y BREAK 

0206 

VDE L AY 

DO 1C 

VDSL ST 

0200 

V INTER 

n?H4 

VKFVBn 

0208 

VSERIN 

020A 

VSEROC 

020E 

VT J MR2 

0212 

VTIMR4 

0214 

WARMS! 

0008 

WAR MS V 

E474 

WSYNC 

D40A 

X IT VBL 

E93E 

X X I T 

E805 

ZIOCB 

0020 

_Z2L*1E4 

Q.QF2 




•y. • 
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HID ( SERIAL BUS INPUT/OUTPUT CONTROLLER > 





























‘ • • / V •* *V -V* -V -V • • V •; * •'.* •'.* •* • . •' •*. • 



































S10 < SERIAL BUS INPUT/DU I PUT CONI ROLLER ) 


r 


2 

2 

JL 


i 

i 

-i 


. II1LL "SIO ( SERIAL BUS INPUT/OUTPUT CONTROLLER ) “ 
COLLEEN OPERATING' SYSTEM 

SIO ( SERIAL BUS INPUT/OUTPUT CONTROLLER ) 

W11U SOFTWARE BAUD RATE. CORRECTION ON CASSETTE 


AE MILLER 


3—APR -79 



MODULE HAS ONE ENTRY POINT. IT IS. CALLED BY THE DEVICE 
/HANDLERS. If INTERPRETS A PREVIOUSLY ESTABl I SHED DEVICE CONTROL 
/BLOCK (STORED IN GLOBAL RAM) TO ISSUE COMMANDS 
iTO HIE SERIAL BUS TO CONTROL 


— — i — 








SHI ( SERIAL BUS INPUT/OUTPUT CONTROLLER ) 


r 



0000 

-0040 

0060 


i lOUAlLS 

i 

DEVICE BUS ID NUMBERS 
N OPPY = -f;30 

-PR INTF? ^ un 

C ASSET s .ji^O 

i 

i 

; BUS COMMANDS 



0053 



t D 


0057 
0053 
003 .i 

WRI TE 
ST AT 3 S 
FORMAT 

r: 
l r 

— iv 

*'W 

'S 

f 1 



0053 

Q04E 


0044 

0050 


f 

SIDWAY 

NORMAL. 


x-uuririaiHiJ auiL JiY i hs 




'B 

'N 


DOUBL 
PL OT 


'D 

'P 


PRINT 16 CHARACTERS SIDEWAYS 
PRINT 40 CHARACTERS NORMALLY 
PRINT 20 CHARACTERS DOUBLE WIDE 
PLOT MOD'- 







DEV ICE ACKNOWL EDGES I N i • OR MAI 3 ( IN 
DEVICE DID MO} UNDERSTAND 

DEVICE SUCCESSFULLY COMPLETED QPERAT ION 

DEVICE INCURRED AN ERROR IN AN ATTEMPTED OPERATION 


; MISCEl LANEOUS EQUATES 






0020 

0000 

GOCC 

0000 


: 


0005 

0007 





00B4 

0000 

0070 

0000 

000!- 

QOQA. 




0034 
_ -ooao 

0034 

003C 

0002 

OOSE 

0002 


003A 


J U . 9 2L U _j~ . T*20 1 5200 BAUD RAi£_ POKEY COUNTER VALUES (LO BYTE) 

8 1 r " 2< H - $00 (HI BYTE) 

B6001 0 - $GC 600 BAUD (LO BYTE) 

B&Q QHI TLQ5 — 

HITONE = $05 FSK HI FREQ POKEY COUNTE VALUE <5326 HZ) 

I STONE «= 1*07 FSK LO FREQ POKEY COUNTER VALUE <3995 HZ) 

■ r i — , - . . _ 


< HI BYTE! 


WIRGLO = 180 WRITE INTER RECORD GAP (IN 1/60 SEC) 

WXRGH1 0 

TTXROLO j 120 READ INTER RECORD GAP (IN i/60 SEC) 



RIRGHI 
WSI RG 
RSIRG 


= 0 
« 15 

^ JUL 


SHORT WRITE INTER RECORD GAP 
SHORT READ INTER RECORD GAP 


y- ■ 


NCOML O 

MOTRGO - 
MOTRST = 


TEMP! II 
TEMPI O 
CBUFHI 
CRUEL 0 


$34 PI A COMMAND TO LOWER NOT COMMAND I 3 NE 
163C PI A COMMAND TO RAISE. NOT COM MAND LINE 
$34 PI A COMMAND TO TURN UN CASSETTE MOTOR 
$3C PI A COMMAND TO TURN OFF MOTOR 

TEMP/ 256 ADDRESS OF TEMP CELL (HI BYTE) 

~256*TEMPHI+TEMP (i 0 BYTE) 

CDL VIC/256 ADDRE SS OF COMMAND BUI PER (111 3YTE) 

256*CBUFHHCD! VIC (10 BYTE) 




GOOD 
000 J 


CBETIU .? 
DRETR1 - 


13 NUMBER 01; COMMAND FRAME RETRIES 

1 NUMBER OF DEVICE RETRIES 






SIO < SERIAL BUS INPUT/OUTPUT CONTROLLER ) 


ooor> 

QOOO 


COMMAND I R AML ACK TIM! OUT <LO BY!!-) 
COMMAND FRAME ACK TIME OUT <il) BYTE I 


J3DLE 
OOP o 


CT I Ml O ~ P 
Cl I Mi ll _2L 0 

i 
i 

J lA U RIt.* Ji 1MER/256 III UYIE DF JUMP TIMER ROUTINE ADDR 

JTADRL -£?^6* JT ADRH+ JT I M! • U 








■ 







































































.. 







Moore Business Forms, Inc. »v 14J2T 


SHI < SERIAL DUS' INPUT/OUT RUT CONTROLLER ) 


[» 

.t 


# 

# 








SIO 


EZIBV 4C 59 i£9 


* ~ smv 

OOP SID 


BIO ENTRY POINT 


E465 4C 44 E9 
JB46>U 40- EO-EB 


* : SIOINV 

JMP SIOINT SIO INITIALIZATION ENTRY POINT 


* - SENDEV 

JN1' SENDEN BEND ENABLE ENTRY POINT 


*■ VCTABL-1 NTABS+VSERIN 


E4BA J .1 EB>/ 
E48C 90 EA i/ 
-E40E -D-l ~EA~*^ 


.WORD ISRSIR VSERIN 

. WORD ISRODN VSEROR 

.-WORD ISRTD VBUiOC 


*=SIOORG 

i 

-lOHI INITIAl T7ATIQN SUBROUTINE 




E944 

£946. 

A9 3C 

an 02. 

D3 

SIOINT LBA 

#MOTRST 

PACTL 

E949 

E9.4B 

A9 3C 
OP 03 

D3 

9 

l DA 
OTA 

#NCOMHI 

PDCTL 

E.94E 

A9 03. 


* 

i 

1, DA 

#3 

E950 

SD 32 

02 

STA 

SSKCTL 

E953 

35 41 


ST A 

SOUNDR 

E95P. 

.OP QF P2 

SIA 

- JSKCXL. .... 


TURN OFF MOTOR 






RAISE NOT COMMAND LINE 


.E.9SB AO 


RTS 


RETURN 



1 — W, — — mg’ 


* 

* 

i 














E959 

BA 



GW 

rsx 



E95A 

3E 

18 

03 


STX 

STACKP 

SAVE STACK POINTER 

F9DD 

AV 

01 



I DA 



E95F 

35 

42 



STA 

CRITIC 


L961 

AD 

DO 

03 . 

i 

LPA 

DDEVIC 


E964 

C9 

60 



CMP 

#CASSET 


E966 

DO 

03 



BNE 

NOTCST 

BRANCH IF NOT CASSETTE 

. £760 

AC 

BA 

JER 


JMEL-. 

-CASENI 

OTHER W ISE JUMP TO _ CASBLT T.L-ENT ER 









i ALI , DEVICES EXCEPT CASSETTE ARE INTELLIGENT 








E96B 

A9 

00 

NOT CST l DA 

#0 


E96D 

3D 

OF 03 

ST A 

CASFLG 

I NIT CASSETTE RAG TO NO CAS 

E970 

AV 

01 

L DA 

#DRETR I 

SET NUMBER OF DEVICE RETRIES 










1 • 

SIO 1 SERIAL BUS 

INPUT/OUTPUT CONI ROLLER > 

1 # 

IT73 85 37 

81 A 

dretry 


-E87A A9 HO - 

CUMHND L1M 

•C RETR 1 

1 • I 

EV/A 85 3A 

81 A 

CRETRY 



tliLMD A COMMAND 

FRAME 

1 • 

EV7 8 AY 28 

CCIMI RM l DA 

•B192L0 


L9/A UD 04 U2 

S1A 

AUDF3 

A 

F97D A9 00 

L DA 

•B 192HI 

w 

F9/P HI) OA D2 

81 A 

AUDF4 



,, l _ , , 



E VHP Hi 



• 

F983 AD 00 03 

L DA 

DDEVIC 


AD 01 03 


DUN I r 

L A 

F989 A9 FF 

ADC 

#*FF 


E98B HD 3A OS 

STA 

CDEVIC 

| m 


•' 

DCOMND 

9 

F991 BD 3B 02 

STA 

CCOMND 

• 


l DA 

DAUX1 

E 997 BD 3C 02 

STA 

CAUX1 


_ - JL9SA Ail OB 03 

„ 4«^A 

-DAUX2- 


E99D BD 3D 02 

STA 

CAUX2 



* 


E9A0 lfl 

( ; , 



E9A1 A9 3A 

1 DA 

#CBUFLO 

• 

E9A3 85 32 

STA 

BUFRLO 


E9A5 A9 04 

ADC 



E9A7 85 34 

STA 

BFENLO 

• 

EVA 9 A9 02 

l DA 

#CBUFHI 



SI A 

BUFRHI 


E9AD 85 35 


BFENHI 

• 


i 



E9AF A9 34 

1 DA 

#NCOMLO 


E9R1 81) 03 D3 

STA 

PBCTL 

• 


; 



E9JJ4 20 8E EC 

038 

SEND IN 

1 

E9D7 AD 3F 02 
E9J3A J10 03 

i 

EDA 

... _ _I1NE 

ERRFLG 
BADC.QM _ 


SF1 UP COMMAND HU N K 


SUBTRACT 1 

‘il l DUS ID NUMBER 


STORE COMMAND FRAME AUX BYTES 1 AND 2 

DCJNfc SETTING UP COMMAND BUFFER 

SET DUFFER POINT ER TO COMMAND FRAME BUFFER 


DONE SETTING UP BUFFER POINTER 




Urn — — 


A SMART DEVICE 


£9 DC 98 
. E 9RD DO 0 7 




BML 


IF ACK RECEIVED 



£?C6 AD 03 03 L _ XiCliRLO 
t 9C9 10 OC 






LHA 

BPL 




DSXAIS AOliUeiAB DECEIVED 

WATCOM BRANCH TO WAIT FOR COMPLETE , 
IE THERE IS NO DATA TO BE SENT 


— T 













j_SLND A JJALAJXiAtlE TO FEjilPHhRAL 














S ' (i ( SERIAL BUS INPUT/ 0UTPU1 CONTROLLER ) 


F9CB A9 OD 
FVCD lib 36 

F9CF 20 6E EB 


E9D2 30 SE EC 
E7D5 FO ES 


E9D7. 20 79 EC 

E9DA A9 00 
-E?DC Ml) 3E: OP 


E9DF 30 9F EC 
E 9FP FT) 12 


l DA 
01 A 


#CRETR I 0! 1 NUMBER OF RETRIES 
CRETRY 


JSR 

JSR 

BEQ 


LDPNTR LOAD BUFFER POINTER WITH DCB INFORMATION 
SENDIN GO 0! ND THE DATA FRAME IN A SMART DEVICE 
HADCQWI BRANCH IF BAB (fcweo J /m ft kV/Tcx ) 

i TiEfcltl'? 

i 

{WAIT FOR COMPLETE SIGNAL FROM PERIPHERAl 

i 

WA1CUM JBH STTMDT DEI DDE VICE 1 IMF HUT VALUES IN Y, X 


L DA 
S1A 

JSR 
II EQ 


#$00 

errelg. clear ERROR FLAG 


WAITER St 1 UP TIMER AND WAH 
DERR BRANCH IF TIME OUT 




xDEVICE JHD.. NOT TIME ntiT 


E9E4 

E9E2 

3C 

IQ 

03 

07 

03 


B 3 1 
BVS 

DSTATS 
MOD AT A 

BRANCH IF MORE DATA FOLLOWS 








E9F9 

AD 

JQO. 

3F 

_xa 

02 


L DA 
DNE 

ERRFLG 

DERR1 

ft WAKir ! 1 TUT AM L'oono nr/u it 

E9EE 

FO 

ID 



BEQ 

RETURN 

•’* IIIJI lUi 1 I I *iH L IvULeiy L)vL.Ui\|{l" li 

OTHERWISE RET URN 




E9F0 30 6E EB 


L Rt: C LI V E. ..A DATA FRAME, FROM PERIPHERAL 


E9F3 30 E2 EA 

-EVP 6 AD 3F 03 
E9F9 FO 05 

E9FB _An_19 03 


E9FE 05 30 


EAOO A 5 30 
E A 02 C9 01 
EAQfl FO 07. 


JSR 

LDPNTR 

LOAD BUFFER POINTER WITH DCB 

INFORMATION 

JSR 

RECEIV 

GO RECEIVE A DAI A FRAME 


LDA 

ERRFLG 



BEQ 

NOTERR 

BRANCH IF NO ERROR PROCEEDED 

DATA 

EDA , 

TSTAT 

-.GET TEMP STATUS. 


SI A 

STATUS 

STORE IN REAI STATUS 



NOTPRR IDA 
BEQ 


EA06 C6 37 
EAOO HQ, Q3 


DERR J 


EAOA AC 74 E9 


DEC 

JMP 


I 

« 

i 


STATUS 

#SUCCES 

RETURN BRANCH IF COMPLETELY SUCCESSFUL 
DRETRY 

BEJHRN OliiANOLl IF OUT OF DEVICE BETSIES 


C0MM1MD OTHERWISE# ONE 


MORE 


1 1 Hi- 


re I URN JSR 


LAOD 20 63 EC 


SENDDS DISABLE POKEY INI ERR UP! S 




< St RIAL BUS I NPUT/OUT PUT 

CUNT ROLLER > 

IA10 A9 OO 

1 DA 

#0 

. FAIL QS 42 

ST A 

CRITIC 

FAJ4 A4 30 


STATUS 

FAJ6 BC 03 03 

STY 

DSTATS 


ILLS 

RETURN 


Rt TURN STATUS IN Y 
AND IMF DCB STATUS WORD 


4 

iWAJT SUM ROUTINE 

■ i - i .1 - , „ -- - - , 

; WAITS FUR COMPLETE OR ACK 
i RETURNS Y~*FF IF SUCCESSFUl 

_4 


Y- *00 IF NOT 


EA1A 

A9 

OO 

WAIT LDA 

#*00 


EA1C 

BI) 

3F 02 

ST A 

ERRFLG 

Cl FAR ERROR FLAG 

EAJF 



Cl C 


LOAD BUFFER POINTER WITH ADDUCE 

EA20 

A9 

3E 

1 DA 

#TEMPLO 

OF TEMPORARY RAM CELL 

EA22 

35 

32 

SI A 

BUFRLO 


EA24 

69 

01 

ADC 

#1 


EA26 


34 

ST A 

BFENLO 

ALSO SET BUFFER END H ADDRESS 

EA2B 

A9 

02 

1 DA 

#TEMPHI 


FA2A 

85 

33 

ST A 

BUFRHI 


EAPC 

85 

35 

ST A 

J . 

BFENHI 

DONE LOADING POINTER 

EA2F 

A9 

FF 

LDA 

tt*FF 


EA30 

85 

3C 

ST A 

NOCKSM 

SET NO CHECKSUM FOLLOWS DATA F 



EA3D AD 3E 
.EA4.a. LSL.AJL 


02 


WOK 


L DA 


EA42 FO 21 
F A 44 C9 43 
EA46 10 W 


CML> #ACK 

BED GOOD 

CMP #COMPLT 

B£GL GOOD 





EA48 C9 45 
JFMAJAQ 


EA4C A9 90 
RA4E 3h 30 


EA50 DO 04 

-_.EAS2 _ A S .-afl- 
FA54 85 30 

£AD£ .AS. 30 
FA58 C9 8A 
EA5A FO 07 

EA5C A9 FF 


-N0IJ2ER 


NWUK 


CMP 

mi 

l DA 
_ STA 
BNE 

-LEA- 
ST A 

LDA 

CMP 

BEQ 

LDA 


#ERROR 

NPTPER BRANCH IF DEVICE DID NOT SEND BA£& 


#DERROR 

STATUS 

NWOK 


A DEVICE ERROR CODE 
SET DEVICE ERROR STATUS 





JfcDNACK O TliLRM I SE SET JMACK SLAT US 
STATUS 


STATUS 

#TIMOUT 

BAD BRANCH IF TIME OUT 



#*FF 










MU i QF R T At RIJ8 TNPIJT /CTUTPUT CONTROLLER ) 



S' JO ( SERIAL DUS INPUT/OUTPUT CONTROLLER ) 


n. ■ . ... 




! 




EASE OD 
DO 

3F 

02 

02 

j 

BAD 

ST A 
BNE 

LDY 

ERRFLG 

GOOD 

#0 

SET SOME ERROR FI AG 

RETURN WITH OU 1 SETTING Y - 0 


EA63 AO 

00 


EA65 AO 

30 


GOOD 

L DA 

STATUS 



EA67 OD 

19 

03 


STA 

TSTAT 



EA6A 60 




RTS 


ivPI UivM 


i 

# 




SEND SUDROUT 1NE 


/SENDS A DUFFER OF BYTES OUT OVER THE SERIAl BUS 






EA6B A9 01 
EA6D 85 30 

EA6F 20 F6 ED 


SEND 


t DA 
31 A 

JSR 


#SUCCES ASSUME SUCCESS 
STATUS 


EA72 AO 00 
EA/4 84 31 
EA76 84 3E 


EA78 84 3A 


L DY 
SI Y 
STY 
STY 


SENDEN ENABLE SENDING 
CL EAR 


#0 

CHKSUM 

CHKSNT 

XMTDON 


CHECK SUM 

CHECKSUM SEN! FLAG 
TRANSM I SB 3 ON DC 1NE FLAG 


# 

i- 



EA7A 

Bi 

32 


\. DA 

(BUFRLO) , Y 


EA7C 

8D 

OD D2 


STA 

SEROUT 


EA7F 

S5 

31 

f 

STA 

CHKSUM PUT 


PUT FIRST BYTE FROM BUFFER 
INTO THE SERIAL OUTPUT REGISTER 


E A8 1 A 5 
LABS DO 
£A85 4.C 


11 

03 

A4 ED 


NOT DON L DA BRKKEY 

BNF NTBRKO 

JMP BROKE 

f 


JUNE IF BREAK KEY PRESSED 


EA88 

A5 

3A 

NT BRKO 

LDA 

XMTDON 

PAPA 

FO 

FS 


UFO 

MQTDON 

FA8C 


63 EC 

i 

i 

JSR 

SENDDS 

EASE 

60 



RTS 



RETURN 


I 

L 

i 

i 

±- 

i 


i OUTPUT DATA NEEDED INTERRUP1 SERVICE ROUT 3 NF 


E A90 98 
EA91 48 


ISRODN TYA 
PHA 


SAVE Y REG ON STACK 


EA72 E.6 
FA94 DO 


32 

02 


INC BUFRLO INCREMENT BUFFER POINTER 

BNE NOWRPO 

INC. 11UERHI 




BIO < SERIAL BUS INPUT/OU1PUT CONI ROLLER ) 


EA98 A5 33 
EAYA Lb 39 

t AVC VO 32 
E AVI A9 32 
LAAQ Ctj J4 

LA A3 VO 1C 


NOMVtPO 


BUFRHI CHI CK IF PAST END IJC- KOI I | |< 
BFENHI 

NOTEND 

bufrlo 

BF EM-Q 

NOTEND BRANCH IF NO I PAST END til BUFFER 


LAA4 Ab 3B 

I AAA DO OB 


LI1A 

HNt 


CHKSNT 

RELONE BRANCH IF CHECKSUM ALREADY SINT 


EAAO Ab ai 

F AAA BD OD D2 
l AAD AV FF 
EAAF Bb 3B 
E AH J DO 09 


SI A SEROUT SEND CHECK SUM 

i DA #*FF 

til A CHKSNT SET CHECKSUM SEMI FI AG 

BNE CHKDON 


EAB3 Ab. ia 


EAR 5 09 08 
EAB7 85 10 
EAH9 LID OE B2 


REELINL LL)A POKMSK \ ENABLE TRANSMIT DUNE INTERRUPT 

ORA #*08 V 

STA POKMS)' 7 

STA IRQEN 


EABC 68 
EABD AO 

E ABF 40 


CHKDON 


RESTORE Y REG 

RET URN FROM INTERRUPT 


EACO AO 00 
EAC2 111 32 

EAC4 BD OD D2 


NOTEND 


#0 

( BUFRLO El_Y 
SEROUT 


PUT NEXT B YTE F ROM HUEFER 
INTO THE SERIAL OUTPUT REGISTER 


EAC7 18 
EAC8 65 31 
BACA 69 00 

MA QQ ag 3 * 


CLC 

ADC 

m 


CHKSUM 

#0 

_CHKSUtl 




EACE 4C BC EA 


JMP 


CHKDON 


GO RETURN 

_ 


. . . . • . . . . . ...... i. . . _ . . . . . . . -- ... 






— 


BAD 5 




FAD 7 A 5 10 
EAD9 29 F7 
LMJli iiD JjCL 
BAUD HD OE D2 


l AI D AH 
EAE1 40 






EOOj 


I DA 
AND 
STA 
STA 


RTI 




POKMSK 
#$F7 
EJDTUnSK. 
IRQEN 


DISABLE TRANSMIT DONE INTERRUPT 


RETURN FROM INTERRUPT 











S'JO ( SERIAL BUB INPUT/OUTPUT CONTROLLER ) 


EAE2 A9 00 

EAE4 AC OF 03 
— EAE7 -DO, 02 


EAF9 85 31 
EALli 3 b 38 
EAED 80 39 


EAEE 

LAIX 


A 9 01 
3b- 30 


EAF3 

EAF6 

3AL-3 


20 IF EC 
A9 3C 
■UP. 03 D3 


EAFB 

EAFD 

FAFF. 


AO 11 
DO 03 
4C A4 ED 


i RF CF 1 Vi SUBROUT I NE 

i 

HI CEXV LDA #0 




LDY 

UNL 


CASFLG 


NOCLR 


ST A CHKSUM Cl FAR 

ST A BUFRFL 

SI A RECVDN 


CHKSUM 

BUFFER FULL FLAG 
RECEJVF DONE FLAG 


1 

-i 


l DA 
STA 
JSR 
l DA 
SxlA 


tSUCCES 
STATUS 
RECVEN 
#NCOMHI 
— FBCXL 


CHRTIM 


SET GOOD HIATUS FOR DEFAULT CASE. 
DO RECEIVE ENABLE 
COMMAND FRAME HI COMMAND 
.STORE . . I N PI A 


EB02 AD 17 03 
EBQ 5 FO 05 
EB07 AS 39 
FB09 FO FO 

EBQB AO 

EBOC A 9 8A 
EBOE 85 30 


LDA 

BNE 

JMi' 


NTBRK1 


LDA 

BEG 


BRKKEY 
NTBRK1 

BROKE -JUMP IF BREAK KEY PRESSED 


NO, 


1FLG 
TOUT 


LDA 

BEG 

GOBACK STS 
I OUT LDA 
SI A 


RECVDN 

CHKTIM 


IE. TIMEOUT, Sill HE X ERROR STATUS 




DONE ? 




#T IMOUT 
STATUS 


YES, 

SET TIMEOUT STATUS 








FBI . 0 t . a Q 


EBU 98 
EB12 48 


EB12 AD- OF P2 ... 

EBJ6 BD OA D2 


EB19 30 04 


MiElilhL IIS. 


I 

J - 

$ 

# 

J 


RETURN 


; SERI AI INPUT READY INTERRUPT SERVICE ROUTINE 


JSRSIR 7 YA 

PHA 


SAVE Y REG ON STACK 



LDA. SKSTAT - - 

ST A SKRES RESET STATUS REGISTER 

;*»**»»*» THIS MAY NOT BE THE PLACE TO DO IT 

NTFRAM BRANCH IF NO FRAMING ERROR 


1 


















'• fvi’Mii Fort 


SIO < SI RIAL BUS INPUT / OUT PUT CONI ROLLER ) 


EBiti AO BC 

FUJD 84 30 

EBIT . i!‘i 20 
• < ' 1 DO 04 


■ nv 

Nil RAN AND 


#F RMERR 

STATUS SFT FRAME ERRORR STATUS 

; 

NTOVRN HRANCH IF NO OVERRUN ERROR 


EB23 AO BE 

FBP5 04 30 


LDY 

SI Y 


HQVRRUN _ _ __ 

STATUS SET OVERRUN ERROR STATUS 


fbd/ a:i - ja.— 

EUL’D AD OD D2 

EB2fc C5 31 
EB30 FO 04 

EB32 AO OF 
FB34 04 30 


EB36 A9 FF 
EB30 85 39 


EB3A 68 
EB3B A8 
EB3C ML 


NTUVKN LDA 
UFO 

I 

CMP 

BEG 

_i 

LDY 

STY 

STA 


SUSUAL 


BUFRFL 

NOT YET BRANCH IF BUFFER WAS NOT YFT FILLED 

SERIN THIS INPUT BYTE IS THE CHECKSUM 
CHKSUM 

SRETRN BRANCH IF CHECKSUMS MATCH 

#€HKERR 

STATUS SET CHECKSUM ERROR STATUS 




#*FF SET RECEIVE DONE FLAG 
RECVDN 


RESTORE Y REG 

RE‘l URN .FROM INTERRUPT 


EB3I) 40 


EB3E AD OD D2 

EB4X _A Q QO 

EB43 91 32 


NOT YE T 


I DA 
I DY 

STA 


SERIN 

#0 

( BUFRLO) i Y 




STORE INPUT REGISTER INTO BUFFER 






EB 56 90 E2 
J&tbZLAZS 2. 
mb A Cb 34 
EBSC 90 DC 


SUSUAL 

JIUF. R LQ 


EB5F AS 3C 
EB60 FO 06 



IS IN BUFFER 1 IW1TS 


MOCKSM 

GOON BRANCH IF A CHECKSUM Will FOLLOW DATA 







E.B6P 
EB 64 

A 9 
85 

00 

30 

— t. 

* 

l DA 
STA 

#0 

NOCKSM 

Cl PAR NO CHECKSUM 

FL AG 




EB66 

FO 

CE 

i 

BEG 

SRETRN 

GO RETURN AND SET 

RECEIVE DONE FLAG 




F BAB 

A9 

FF 

GOON 

l DA 

fl'fcFF 







— •- 




Moor* Builntu Formt, Inc »v 1412T 



Moor* Ba rn, F 


810 ( SI RIAL BUS I NPUT / OUTPUT CLINT ROLLER > 


EBA9 AD 17 03 
FttAC 1KL.FB 

EHAE 20 6E EB 


HUM 20 6B EA 
EBB4 4C £3 EE 


1 1 M 1 T 


l 1>A 
RNL 


TIMFLG l OOP UNTIL. DONE 
TI MIT 


LDPNTR ( HAD BUFFER POINTER WITH DCB INFORMATION 
SI ND SEND A BUFFER 

CRETRN _ GU RET URN — 


i RECEIVE A RECORD 


EUBZ A^ EE 

jCASRLD 

LBA 

EBB9 OD OF 03 


STA 

FHHC AO oa 


1 PY 

EBBE AD OB 03 


1 DA 

EBC1 30 02 

t - _ 

BM1 

EBC3 AO 78 


LDY 

FBC5 A2 00 

SRT 1R1 

LDX 

FBC7 20 BD ED _ 


JSR 


EBCA A9 34 
EBCC BD 02 JQa 


L 1)A 
_STA 


EBCF AD 17 03 

EBD2 13Q-EJB 


II Mill L DA 
.... HNL. 


EBD4 20 6E EB 


JSR 


F.BD7 20 79 EC 
EBDA 20 BD ED 


JSR 

JSR 


JftEEE - 

CASFLG SET SET CASSETTE FLAG 

ttRSIRG LOAD SHORT READ INTER RECORD GAP TIME 
DAUX2 

SRTIR1 BRANCH IF SHORT GAP IS DESIRED 

#R IRGLO SET TIME OUT FOR READ IRQ 
#R IRGHI 

a 


#MOTRGO 

RACTL TURN ON MOTOR 


TIMFLG LOOP UNTIL DUNE 
TIMIU 


L.DPNTR LOAD BUFFER POINTER WITH DCB INFORMATION 




STTMOT SET DEVICE TIME OUT IN Y, X 
SETVBX 



EBEB AV 3C 

j=Mm m .Q£ 








EBED 4C OD EA 


SRT XR2 JMF 


RETURN GO RETURN 





FBFQ A 9 00 
Ell Fit Ull-12. SXLi 


JTIME R 


#■$00 


FUFF 



• — ■ ” ■ — 



















Moor# Buslnet] Form», Inc. iv U1ZT 


'’Mi ( SERIAL BUS INPUT/OUTPUT 


CONTROLLER ) 




EBF6 A 9 07 
EBF8 PD 3 2 OP 
-EttEB 09 20 


' SEND ENABLE SUBROUTINE 

-* . ... . . _ _ 

SENDEN 


I DA 
AND 
-ORA 


EC OP DO OC 


I DV 
CRY 
BNE 

ORA- 


EC 06 AO 07 
£0.00 OC OIL 




EC OB AO 05 
ECO!) OC 00 DP 


I DY 
01 Y 


l DY 
STY 


EC 16 A 9 C7 
EC 10 05 10 
- EC: 1 A 09 m 


ST A 
S‘l A 

LDA 

AMD 

-ORA.. 


SSKCTL |V,/ ' fiK 0FF PREVI0US SER3tAL BUS CONTROL BITS 
JiEX TR ANSHX.X -MODE 


DDEVIC 

#C ASSET 

NOTCAS BRANCH IF NOT CASSETTE 

OOl TELE ESK OUTPUT BIT 


#LOrONE SET FSK TONE FREQUENCIES 

AUDF2 

#HITONE 

AUDF1 


SSKCTL ST ORE NEW VAl UE TO SYSTEM MASK 
SKCTL STORE TO ACTUAL REGISTER 


MASK OFF PREVIOUS SERIAL BUS INTERRUPT BITS 

POKMSK 

JL£1Q LM AD L L . _ QiiJBUT _ DATA. NEEDED- INI ERRUP T 


CONI IN_ JSO -- 1 * “ • 


3ME 


ENABLE SUBROUTINE 


~^4 












i i RE CL 1 Vi ENABLE SUBROUT 3 Ni 


EC IF A9 07 
EC21 2D 32 02 


RECVEN L DA 

AND 



EC 26 

SD 

32 

02 


ST A 


EC 29 

81) 

OF 

1)2 

A 

ST A 


EC2C 

81) 

OA 

D2 


ST A 


- _E£2F 

-A5L 

_XX 


i 



EC 31 

25 

10 



AND 


EC 33 

09 

20 



ON A 


: 

-115 

10 


com in 

ST A 


EC 37 

8D 

OE 

D2 

9 

ST A 



A9 

28 



1 DA 


EC3C 

3D 

08 

D2 


SI A 


EC3F 

A2 

06 



1 DX 


EC 41 

A9 

A8 





EC 43 

A 4 

41 



1 DY 


EC 45 

DO 

02 



HNE 









#$07 MASK OFF PREVIOUS SERIAL BUS CONTROL BITS 
SSKCTL 

-&E1 Q . SET RECEIVE MODF ASVNCH 

SSKCTL STORE NEW VALUE TO SYSTEM MASK 
SKCTL STORE TO ACTUAL REGISTER 


SKRES 

POKMSK 
#$20 
PQKMSt 
IRQEN 


RESET SERIAL PORT /KEYBOARD STATUS REGISTER 
TIASK.jQFF PREVIOUS SERIAL BUS INTERRUPT BITS 


ENABLE RECEIVE INTERRUPT 
STONE NEW VALUE. TO. SYSTEM MASK 
STORE TO ACTUAL REGISTER 








#$28 CLOCK CH. 3 WITH 1.79 MHZ 

AU L Cl OCK CH. A WITH CH. S 

SET PURE TONES * NO VOI ONE 

#$A6 

iaQUilLlC- TEST QUIET IXLLEL.AG 

NO 1 Ni IS NORMAL- (NOISY) 


sin 


< SERIAL BUS INPUT/ OUTPUT CONTROLLER > 


FC47 AV AO 
EC 4 7 7LL 01 D2 

EC4C CA 
EC4D CA 


EC 50 AV AO 

££52 an Q5 D2 

EC55 AC 00 03 
EC 58 CO 60 
-EC5A LQl 06 


NUISEl 


EC5C 8D 01 D2 
EC5F 8D 03 D2 


EC62 60 


l 1>A 

K'fcAO 

ST A 

nudc 1 , X 

DEX 


DEX 


-BEL— 

NQ1SL1 

IDA 

#*A0 

-SEEK. 

AUDC3 

LDY 

DDEVIC 

CHY 

#C ASSET 

liLQ 

XAS31 

STA 

AUDC1 

ST A 

AUDC2 

RTS 



RET URN 






■LC6.8 [ A 


EC64 A9 C7 
EC 66 25 10 

JE£4g„a5_JLQ. 


EC6A QD OE D2 


-EC6D A2 06 


«‘I>ISABIE BIND AND DISABLE RECEIVE SUBROUTINES 

I 

-SLNDPS — MQP 


HhCVIKJ i DA #*C7 MASK OFF SERIAL BUS INTERRUPTS 

AND POKMSK 




STA EQKBSK STORE NEUI VALUE TO BVBTi 

S I A IRQEN STORE TO ACTUAL REGISTER 


EC 61 A 9 00 
EC 71 9D 01 D2 
-£CZ4_C A 


2EKIT 












EC 75 CA 
EC 76 JO F9 


DEX 

RPL 


TURN OFF AUDIO VU UME 


EC/O 60 














EC 79 AD 06 03 
-E.C7C 6 A, 


FC7D AA 
EC7E AB 
■EC7E 29 3F 


EC 81 AA 


i3Li .wjlvicjl ulml out values i n y, x subroutine 

STT«D1 


LDA 

j aua. 

NUR 

TAY 

AND 


TAX 


DTIMLO 

jA 


Gt T D1 VICE TIME OUT IN 1 SECOND I NCR 
Pin 6 HI BITS ) N X/ 10 2 HITS IN Y 

TEMP SAVE 

MASK PFJL_2.H1. EI1S 


THIS IS HI BYTE 01 TIME OUT 




S10 ( SERIAL BUS INPUT/OUTPUT CONTROLLER ) 


■ fcc/t- H 9 r t F — „ AND # <fc3F 

•'CO 3 A A 1 AX 


MASK UFT- 2 HI ttl lii 

HI IS IS HI BY I F OF TIME OUT 


BIO < SERIAL BUS INPUT/OUTPUY CONTROLLER ) 


Lca;> VO 
EC 03 6 A 
EC84 09 CO 
E C Q6 AB 

EC8? 60 


EC88 JJ EB 
EC 8 A 90 EA 
ECUC JQi EA 

OOEB 

QQ1J 

001 A 
0090 

QOEA 

00D1 


X YA 
RON 
AND 
XAY 


T~ . _ . 

I 


A 

#*C0 


REBI ONE 




NARK OFF ALL BUI 2 HI BITS 
HUB IS LO BYTE 01 TIME OUl 


9 

I 

1NVIBI .WORD ISRSIR SERIAL INPUT READY \ ^ 

* WORD ISRODN OUTPUT DATA NEEDED \ 

-.WORD -ISRTD TRANSMISSION DONE J 

» 

SJNIU = 1 SRSIR/256 SERIAL INPUT READY ISR ADDRESS 

STRUT R56ftS I RHI + ISRSIR 

0DNH1 « 3 SRODN/256 OUTPUT DATA NEEDED )SN ADDRESS 

( U)NI O * -256*ODNHI +• I SRODN 

IDHI _ .? IBRTDY256 I NANSMISSI ON DONE 1 SR ADDRESS 

TDI. 0 = -~256#TDHI + ISR‘I D 


* 

i SEND A DATA FRAME TO AN INTELLIGENT PERIPHERAL SUBROUTINE 


- JEC8E A2 

_Q1 


SEND IN 

LDX , 

tt$01 


EC 90 AO 

FF 


DEL AYO 

LDY 

#$FF 


EC 92 88 



DEL AY 1 

DEY 



EC93 DO. 

FD 



RNE 

DELAY! 

EC 9 5 CA 




DEX 



EC 96 DO 

F8 



DNL 

DELAYO 


EC 98 20 

6B 

EA 


JSR 

SEND 

GO SEND THE DATA FRAME 

EC9B AO 

02 


1 

LDY 

8CTIMLQ 

SET ACK TIME J0U1 

EC9D A2 

00 



LDX 

ttCTIMHI 


EC9F 20 

BD 

ED 

WAITER 

* 

USR 

SETVBX 


ECA2 20 

1A 

EA 


JSR 

WAIT 

WAIT FOR ACK 

EC A3 98 



i 

I YA 


IE Y-Oi A TIME OUl OR NACK OCCURED 

ECA6 60 



i 

RTS 


RF1 URN 




9 

9 

i 







i 

9 





* 


SIO ( 3F.R1AL BUS INPUT/UUIPUT CONTROLLER ) 


COMPUTE VALUE FOR POKEY FREQ REGS EOR 1 HE BAUD RATE AS 
MEASURED 11Y AN INTERVAL DE THE 'VCUUNT ' TIMER. 


ECA7 8D 10 03 
-EXIAA.-BtL.il. 03 
EC AD PO 08 ED 
ECHO 8D 10 03 
ECU 3 AD DC Qa 
ECU 6 PO 08 ED 
l CB9 8D OC 03 
ECBC AD 10 03 
EC BE 38 
ECCO ED OC 03 
ECC3.11LL JLH 03- 


COMPUT SI A 
_ Si Y 


TIMER2 

TIMER2+1 

ADJUST 

Y I MER2 

TJLMER1 

ADJUST 

TIMER! 

TIMERS 


SAVE FINAL TIMER VALUE 
ADJUST VCOUN'I VAI UE 
SAVE ADJUSTED VAI UE 


ADJUST 

SAVE ADJUST l • D T I ME R J VALUE 


T I MER 1 
TEMPI . 


FCC6 AD 11 03 

ECC9 38 

EC L A ED QO 03 




FIND 






TTWER2+1 


Y 1MER1+J 




ECCD AS 
ECCE A9 7D 
■ECHO 13 


T AY 
L DA 


FIND VBl ANK COUNT DIFFERENCE 


*l~$83 


_lcim 






MUl TUT I CAT ION 


ECD6 18 
ECD7 6D 12 
LCD A t\t< 


03 


Cl. C 
ADC 

:rsr 


TEMPI 


ECJ>E OA 
E.CDF 38 
ECEO !-V 16 


I SR 
LSR 

i m. 

ASL 

SEC 

SBC 


TOTAL V COUNT DIFFERENCE 
WE ACCOM.- 




. .i 




{•CLP A A 
I 98 


T AX 
1 YA 
AND 


A 





— . 






ADJUST J A1 


. 

:T TABLE 




ECE-6 A8 
ECE7 A 9 F5 
LCL9 W 


T AY 
L DA 
TILL. 


PULL OFF 3 LO BITS OF INTERVAL 


#~1 1 


)>F Y 




#3 1 






M I D L<> EA 



















ECEF AO OO 
FCM 8 C OE 03 

i 

I N) NT P l DY 
STY 

#0 

ADDCPR 


EC F A 8,9 
ECE5 F9 07 

SEC 

SBC 

#7 


ECf 7 JO 03 

HPJ. 

PLUS 



DEC 

ADDCOR 


ECFC J 8 

ECF D 7D D2 ED 

PLUS CLC 

ADC 

POKTAB* X 


EDOO A8 




EJK)1 AD OE 03 

L DA 

ADDCOR 


£DQ4L„ZB JKL-ED - 

ADC 

PQKTAB+lj X 


ED07 60 

i 

RTS 



CLEAR amiJ UPN CORRI C I ION FLAG 
ADJUBI INTI-RPUt AI ION CONSTANT 




ADD CONST AN1..1.U LO UYTE TABLE VALUF 
LO BYTE POKEY EREC* VAI UE 

ADD CARRY 10 H) BYTE I ABLE VAI UE 
HI BYTE POKEY FREO VAI UE 







BJO ( SERIAL BUS INPUT/OUTPUT CON I ROLLER ) 


.‘Ill ( SERIAL BUS INPUT /OUTPUT CONTROLLER > 




EDO!) 

EDGE 


»C1 


EDI 0 IB 
EDI 1 69 07 
-i.--D.JUT. 60 


E DOB C9 7C 
IOlO^UiO~D4-- 
EDOC 38 

T9 7C 






ADJUST 


ADJ1 


IT UUT 1NE TO ADJUST VCOUNT VALUE 
*7C 




CMP 

JLlMl 




} 


larger than 12 a 

YES, 




INITIAL BAUD RATE MEASUREMENT — USED TO SET THE 
BAUD RATE AT THE START OE A RECORD. 


EDI 4 
ELLL6-. 


Bf 03 N 


ED IS 4C A4 ED 
■EJJiB. 7li 


I DA 
TINE 
JMP 


jbLlJlRft?.., S EX 


IT IS ASSUMED THAT THE FIRST TWO BYTES OF EMERY 
RECORD ARE ' AA * HE-X 

BRKKEY 

NTBRK2 E__L 

BROKE 


JUMP 3 F BREAK KEY PRESSED 


ED 1C AD 

17 

03 


1 DA 

TIMFLG 

. EI> IF DO 

02 



BNE 

mum 

ED? 1 FO 

25 



HEO 

touti 

ED23 

OF 

Dg 

i 

OK I 3 M l 

1 DA 

SKSTAT 

EDP6 ?9 

10 



AND 

#$10 

1 DP8 DO 

EA 



BNE 

BEGIN 

E D? A BB 

1A 

03 . 


ST A 

S.AVIO 

ED?D AE 

OB 

D4 


1 )>X 

VCOUNT 

ED30 AT 

14 



1 DY 

RTCLOK+2 

EDBP BE 

00 




T 1 MER 1 

ED35 8C 

OD 

03 


STY 

TIMER1+1 

E D30 A 2 

0! 


i 

J BX 



E DBA BE" 

15 



b'T X 

TEMP 3 

ED3D AO 

OA 



\ DY 

#10 

ED3E AD 



COUNT 

. IVr ... . 

.J1RK.KOL _. 

El >4 I FO 

61 



}<m 

BROKE 

. ED43 AB 

1 7 

.n 3 


Li.) A 

TIMFLG 

ED46 DO 

04 



BNI: 

OKTIMR 

ED48 58 



TOUT 1 

CL 3 


PUT? AC. 

00 



_ JMP. 

-10UI 

ED4C AD 

OF 

D2 

# 

OKI J MR 

1 DA 

SKSTAT 

1 DTE 25/ 

IQ 



_ AND _ 

#$1Q 

ED51 CD 

16 

03 


CMP 

SAVIO 

ED 54 FO 

E9 



BED 

COUNT 

ED 56 BD 

JLA_ 



S'l A 

__SAVIH „ 


OUT 


BRANCH IF TIME OUT 


READ SERIAL PORT 
START BIT? 

SAVE SIR. DATA IN 

READ VERTICAL l 3 NT COUNTER 

READ LO BYTE OE VBt ANK CLOCK 


SAVE I N3 I 3 Al I J MER VAt UE 
SET MODE B AC 

SET BIT COUNTER FOR JO BITS 
BRANCH IF BRi-AK KEY PRESSED 


BRANCH IF TIME- OUT 


READ BLR 3. Al PORT 
DATA IN CHANGED YET? 




DEY 


DECR. 


BEIL DATA IN 

BIT COUNTER 


ED 59 88 


Bill < SE RIAL BUS INPUT/OUTPUT CONTROLLER ) 


E DBA DO E3 

ED5C CE 15 03 
ED5F 30 12 
EDAl AD OH I)/l 

hne 

— — — 1 ■ - . 

HMI 

I 1 1,' 

COUNT 

goread 

VCQUhLl 

RTCLOK+2 

COMPUT 

CBAUDL 

CBAUDH 

#9 

r > ni ikit 

EDA4 A4 14 
ED66 PO A7 EC 
L.D69 OC FP nj 

LDY 

JSK 

tJTV 

ED6C BD EF 02 
ED6E AO 09 
Eir7 1 no rf; 

wXl I 

ST A 
1 DY 

HkK. 



V-4J UJ\4 4 , 

FD73 AD EE 02 
JEHZA BD 04 D2 

9 

GCIRE AD l DA 

Si A 

CBAUDL 

AUDF3 

CBAUDH 

ED79 AD EF OP 

L DA 

ED/C BD 06 D2 
y nvr a? on 

ST A 

i ha 

AUDF4 

ED81 BD OF DP 

— - L- 1.4f * 

ST A 

SKSTAT 

ED84 AD 32 02 

I DA 

SSKCTL 


DONE? 

DONE WITH BOTH MODES? 

READ TIMER LO & HI BYTES 
NO, COMPUTE BAUD RATE 

SET BAUD RATE INTO RAM CELLS 
SET BIT COUNTER EOR 9 BITS 


SET POKEY FREQ REGS EOR BAUD RATE 


OF. DP 


EDITA A9 55 
ED8C 91 3P 
EDO E CO 


ST A 


EDBE 91 32 
ED91 A9 A A 
£ 1)93 85 31 


t DA 
-1N.Y 


SKSTAT 

#*55 

< BUFRLO ) , Y 


INIT. POKLY SERIAL PURI 

STORE '*55' AS FIRST RCV. BUFFER 


f if A 
l DA 
JilA 


FD95 IB 
ED 96 A 5 32 


CL C 
L DA 


(BUFRLO), Y 
#*AA 
CHKSUH 

BUFRLO 




IJKSUM EOR 2 BYTES OF '*AA 











EDA 4 20 63 EC 
EDA7 A9 3C 


BROKE 








JHR 
I DA 


SENDDS BREAK KEY WAS PRESSED, SO PREPARE 
#NOTRST TO RETURN 




— — _ - 







tHU7 ^ ±1 
£J)B9 58 


1>L£ 


BRKKEY 


SET BREAK KEY FLAfi TO N ON/ ! R( i 
ALL OW IRQ 'S 


JLWA^A£...QI]l. EA. 


EET.U m __mJiFXURN 






jLinm a? po 


EDBF 8D 26 02 


SL1VBX LI>A 


S*l A 


3UTAD.BL ial (Ji il _Ili3E -QU L J(QUUNi 

CDTMA1 


SIO < SERIAL BUS INPUT/OU I PUT CONI ROLLER ) 



tom- BP 26 02 


St A 


CDTMA1 


' J i l*v; i ruJV U NT ADDRESS 


BKI ( SERIAL BUS INPUT/OUTPUT CONTROLLER ) 


: K 

EDC-§ BBtJkz 02 

E-DC 7 A9 01 
uk; 9. -2n._LX.m- 


EDCC 78 
UiCP 20 5C JEA 
ED DO 58 
EDD1 60 


t DA 
Si A 

l DA 

-2XA. 

sl :i 
JHR 

c;i i 

RIB 


#JTADRH 
C DIM A Hi 

#1 

.'1 1MFLG 


SET FOR TIMER J 

BLl FLAG XQ NO'] TIMED mil 


BETVEV 


‘HE SETVBL ROUTINE NF EPS I HI S TO CUT SHORT 
-AMY VRLANKS THAT OCCUR 


* VCOUNT * INTERVAI TIMER MEASUREMENT - 
CONVERSION TABLE 


TO 


POKEY FREQ REC VAI UE 


THE VALUES STORED IN THE TABLE ARE ' AUDF+7 * . 


THE FOLLOWING FORMULAS WERE USED TO DETERMINE THE TABLE VALUES: 

-£- OUX-.F IN/ (2* (AUDF HX) ) > WHERE F IN 1 1. 7897.9 MHZ. P. M V 

FROM THIS WAS DERIVED THE FORMULA USED THE COMPUTE IMF 

_ — — jm^-VALUEELBASE D Q N A MEASUR EMENT OF THE PERIOD BY 

AN INTERVAL OF THE 'VCOUNT' TIMER. 

-AU-DF-h? « 11.1^.3651 6X1*X. JDiDIi__mERE I QUT«# OF COUNTS <J2/ USEC 

RESOLUTION) OF 'VCOUNT ' LOR 1 
CHARACTER TIME (10 BIT TIMES). 


AUDF+7 


BAUD RAT F 


VCOUNT INTERVAI- 





w 

$27C ; 1407 

56 





$2D7 

1233 

64 




. WORD 

$332 

1094 

72 



-M -- 

. WORD 

$3SD 

985 

80 

EDD2 E8 

03 

POK'I AD 

. WORD 

$3EB 

895 

88 

EDD4 <13 

04 


. WORD 

$443 

820 

96 

FX)D6 9E 



. WORD. 

$4 

757 

104 

EDD8 IV 

04 


. WORD 

$4F9 

703 

1 12 

FDD A W \ 

05 


. WORD 

$554 

656 

120 

_ EDDC AF 05 


. WORD 

E5AE . . .... 

61.5 

128 

EDDE OA 

06 


. WORD 

$60A 

579 

136 

EPFO 65 

06 


. WORD 

$665 

547 

144 

EDF2 CO 



WORD 

$6C0 

DIB 

152 

EDI 4 1A 

07 


WORD 

$71 A 

492 

160 

EDI -6 75 

07 


. WORD 

$775 

469 

168 

EDEO DO. 

Q7_ 


. WORD 

$7 DO . . 

447 

176 



i 

. WORD 

$82B 

428 

184 



§ 

. WORD 

$886 

410 

192 




. W( IRD 


394 _ 

20 0 




. WORD 

$93C 

379 

208 


SJO < SERIAL BUS INPUT/OUTPUI CONTROLLER ) 


. WORD 
- WORD 
. WORD 
. WORD 


$997 

$9F2 


$A4D 

$AA8 


i 352 
i 339 
i 328 



240 









Moore Business Forms, Inc. sv 14I2T 


< SERIAL BUS INPUT/OUTPUT CONI ROLLER ) 


□ 

s 

0 

i 

0 

I 

0 

» 


t 


ACK 

SYMBOL 
004 i 

TABLE 
ACKREC 
ADR ESS 
APPEND 

ATR ATT 

L9C6 

0064 

0001 
r \( \ yi vs 

ADJUST 
ANT I C 
ATAjy 

FD08 

D400 

RF/>3 

AUBC3 

D205 

AUDC4 

— LAJL4;xi 

D207 

AUDF2 

l>202 

AUDF3 

DO 04 

B172LO 

0028 

B600HI 

0000 

B ADC DM 

E9BF 

BAD IOC 

0086 

BFEMHI 

0035 

BFENLO 

0034 


JiLKBDV- _^LLL 
003P 
OOJ 5 
.0.032 


BP) R 
PUP AJ>R 
-BUFR1. n 
CASENT 
CASPRG 
CAUX1 ... 


BRKABT 

BUFCNT 

BUESIF 


EB84 
EF4 1 
-023C 


CASETV 

CASRED 


-0009 
0080 
Q06B 
-OQAC 
E440 
EBB 7 


ADDCOR. 

AFP 

APPMHI 

-Aunc i. 

AUDCTL 
AUDF4 
B60QLQ 
BAPMOD 
B ) 1 MSK 
BULL AD.. 


03 OE 
D800 
OOOE 
-D201- 
D20S 
D206 
OOCC 
0091 
006E 
0242- 


BRKKEY 
BUFRFL 
CAS31 
CASE LG 
CASSBT 


001 1 
0038 
EC62 
030F 
004*3 


-O 


2'^ 


ADJL 
AL1 PD7 
A I AC HR 
AUDCIi 
AUBE 1 
B192HI 
BAB 
BEGIN 
Bt 1M 
HOT SCR 


BROKE 
BUFRHI 
CASBUF 
CASINI 
C ASSET 


CBUFHI 

0002 

CBUFLO 

008 A 

CCOMND 

023B 

CDF VIC 

CDTMA 3 

0226 

CDTMA2 

0228 

CD1MF3 

022A 

CD’I MF4 

CDIME5 

02211 

CDXMttI 

02 1 8 

CD’i M 02 

02 1 A 


CDTMV4 

02 JE 

CDTMV5 

0220 

CM 

02FC 

• wX/44 lV-Vi» 

CHJ 

CHACT 

021-3 

CHACTL 

D401 

CHAR 

02FA 

CUB AS 

_ CHBA8F 

-DA, 09 .... 

CHKHON 

FARO 

f ’NKl - RR 

nnflF 

ri-iKQKn 

CHKSUM 

0031 

CHKTIM 

FAFB 

CHRORG 

EOOO 

\ i 1JVLUM i 

C 3 OCHR 

C10INV 

E46E 

CIOORG 

E4A6 

e i dv 

E456 

Cl X 

-CKLY 

.004 A, 

CLOSE 

GGOC 

CUI AC 

0072 

CPI RK 

COLORS 

0055 

COLDST 

024 4 

COl DSV 

E477 

CPI INC 

COL PRO 

0SC4 

COLOR 1 

02C 5 

COLOR 2 

02C6 

COL OR 3 

■LULUR4- 

..02C8 

COLPFO , , 

-DQ16 

C.PLPF1 . 

— D.Q.1.7 

. — CQLPF2 


C0LPF3 D019 COLPMO D012 C0LPM1 D013 

COLRSH 004F COMFRM E978 

..COMPill EC A 7 CH WROI DOTH 


COL PM2 
CT iNHNB 
CONTI N 


COS 

BD73 

COUNT 

FB3F 

C8UNTR 

007E 

CR 

CRETRI 

OOOD 

CRETRN 

EBF 3 

C RE TRY 

0036 

CRITIC 

CKNXFC 

-E.DLA 

LBS I NR. 


OR SR OR 

008D 

csnp i v 

CSTAT 

0288 

CT I A 

DOCK) 

Cl ) MHI 

0000 

C l INI 0 

DAUX1 

030A 

DAUX2 

080B 

DBSFCT 

0241 

DBUFHI 

WIELD 

--03D4 

DBYTHI 

0309 

DBYU.0 

0308 

PCX 

DCOMMD 

0302 

DDEVIC 

0300 

PFGFLG 

OOFB 

DEGON 

DFLAYO 

EC 90 

DELAY 1 

EC 92 

DEL ETE 

0021 

BELT AC 

DEI TAR 

0076 

DERR 

F 9! 6 

Dl-RR 1 

FA 06 

DFRRflR 

DFLAGS 

0240 

DXGRT 

001- 1 

D INDEX 

0057 

DIRECT 

DISK 

0044 

DISK IV 

E450 

DI8PLY 

0053 

Dt 3 ST H 

} >11 STL _ 

D402 

DMACTL U4G.0 

DMASK 

02A0 

DM ACK 

DO I NT P 

ECF9 

DOS I MI 

OOOC 

DOSVEC 

OOOA 

DOUBLE 

DRAWL. N 

001 1 

DRETRI 

0001 

DRF TRY 

0037 

DRKMSK 

DSKFMS 

OOJ 8 

DSKINV 

E453 


EDEA 

DSKT I M 

DSKUTL 

001 A 

DSPFLG 

02) F 

Din AT 

004C 

DST ATS 

D1 IMLO 

0306 

DUN.IT 

030J 

DUNUSE 

0307 

DVSTAT 

ED I TRY 


EEXP 

OOED 

EMDPT 

0074 

F.M1NIP 

EOFERR 

0088 

ERRFLG 

023F 

ERROR 

0045 

FSCFI G 

ES I GN 

OOEF 


DDCO 

EXP 10 

DDCC 

FADD 

FASC 


FCHRFI 

OOF O 

FDIV 

BB28 

fl-PF 

FII DAT 

02FD 

FILE LG 

02 B 7 

FIU IN 

0012 

F I NPX 

FI DOP 

DD8D 

FLOOR 

DD89 

FI DIP 

DD9C 

FI DIR 

FLOPPY 

0030. 

EJLPXR 

001:0 

PJTDYE 

DDB6 

FMSZ.PG 

FMUl 

DADB 

FNCNOT 

0092 

FPOEY 

EAEO 

FORMAT 

FPI 

D9D2 

FPREC 

0006 

FPSCR 

05E6 

FPSCR 1 

FP7R2 

-DOLE 

FRO 

-OOD4 

J BLL . _ 

..OQEQ . 


FRF 

OODA 

FREG 

0040 

FRHERR 

008C 

FRX 


ED 10 

ID208 

021 B 

D203 
D200 
0000 
EA63 
EDI 4 
028A 
02BF 
EDA4 
0033 
03FD 
0002 
0060 
02 LL 
023A 
022C 
0210 
02F2 
02F4 
00313 
002F 
00F2 
HO I A 
007 A 
02C7 
D018 
DO 14 
E974 
EC 3 5 
00913 

0042 
E4ZD 
0002 
0305 
0300 
0006 
0077 
-QQ9Q 
0002 
D403 
008B 
0044 
004E 
Q246 
0303 
02EA 
ECEF 
02A2 
DA66 
Q0.3F 
EC DA 
DD90 

0043 
0021 
05EC 
QQE6 
OOEC 


SIO < SFHIAL DUS INPUT /OUTPUT CONTROLLER ) 


r 


F3CR 

051 6 

FSCR1 

051- C 


DDAB 

131 OR 

DDA7 

FSUH 

DA6 0 

_FTYPE 

0031 _ 

QITCHB 

0Q07 

Cl IRLC 

0005 


03E0 


EHOB 

GOOD 

EA65 

COON 

EB6B 

GORE AD 

ED73 

GPRIOR 

026F 

GR AC TL 

D01D 

CRAFM 

D01 1 

GRAFPO 

. POOD.. 

QRAEP1 

UQQL 

GUALP2 JTOQE 

GUAEP3 

D01Q 

HAT ABO 

031 A 

HITCLR 

DO It 

Ml 1 1 MR 

EC DO 

HI TONE 

0005 

NOLI)! 

0051 

H0LD2 

02VE 

HOI 1)3 

029D 

IHII 1)4 

02BC 

nni D5 

. 02 hi) 

HOLDCH 

0Q7C 

i 1P0SMQ 

D0Q4 

HHQSM1 

D0Q5 

1 1P0SM2 

D006 

HP0SM3 

D007 

HPOSPO 

DOOO 

HP0SP1 

D001 

1 IP0SP2 

D002 

HP0SP3 

1)003 

HSCROL 

D404 

ICAX1 

034 A 


1 CAY 1 7 

ICBAHZ 

1CBLHZ 

1CCOMT 


OQ2A 
0025 
OOP*? 
QQ1Z 


_ 

ICBAL 

ICBLL 

JCCHMZ 


__oann 

0344 
0348 
. 0022 


1CBALZ 
1 CBLLZ 
1CDNQ 


0024 

0028 

0341 


ICBLH 
I CCOM 
1CDNDZ 


ICHID 

0340 

ICHIDZ 

0020 

1 C 3 DNO 

002E 

ICPTH 

ICPTHZ 

0027 

ICPTL 

0346 

1 CPI LZ 

0026 

ICSPR 

TC3PR7 

OOPO 

J CRT A 

034 3 

I CP7 A 7 

0023 

. LEE .... . 

INBUFF 

OOF 3 

INSCLR 

0020 

3 NSDAT 

007D 

3 N'l ABS 

INTEMP 

02 2D 

INTINV 

E46B 

3 NT URG 

E6D5 

INTTBL 

1NT ZBS 

0Q10 

IMVFLG 

02116 

ILtCB. 

0340 

IUCBAS 

IOCBSZ 

0010 

IOCFRE 

OOFF 

3 ROEN 

D20E 

IROST 

JSRODN 

EA90 

ISRSIR 

EB1 1 

3 SRT D 

EAD1 

JTADRH 

JTADR1 

OOFO 

vlTIMER 

EBFO 

_ .KBGOBEL. 

.D209 

KBD 

KB DOR G 

F3E4 

KEYBDV 

E420 

KEYDEL 

02F1 

LB FEND 

l BPR1 

OS7E 

LBPR2 

057F 

1 BUFF 

0580 

l DP NT R 

LEDGE 

0002. 

LINB.UF 

024 7 

L1M2BS 

0000 

LMARGN 


034? 

0342 

0021 

0347 

034C 

D9AA 

0200 

EC88 

0020 

D20E 

OOEB 

.G04JB 


05FF 
EB6E 




0.052 


1 DCKFL 
L.OGMAP 
MOPE 


0023 

02B2 

JZXIOQ- 


LOG 

LOTONE 
MGEJ 







M2PF 
MAX DEV 
NLTWF 




DO 02 
0021 
J1Q6.6 


— X* 

M2PL 


DECD 

0007 

DQDil 


1.0010 
L I’PNH 
M J.PF .. 


1)00 A M3PF 

MAX IOC 0080 


MOT R GO 
NC0MH1 
NtlitN .... 


0034 
003C 
J.> 4 0 £.. 


MOD AT A 
MOTRST 
NCOMLO 

_jmLE£a_ 


0080 Ml Ml ( 
rVFQ MODEM 


00 3 C 
0034 
I>40h. 


MXDMOD 
NEWCOL 
JMMJLSX 


MOCLR 


• •- - ■ — 
NOT ‘CAS 




MILE 


EAFB N0ISE1 

EC 10 NOTCST 

NOTEND 


.0.026 


EC49 

E96B 

E A C Q_ — 


WUNDEV 
NOT DER 
MOIERR. 


NOT YET 
NlBRKl 
_MTMiPJ[ 




0 DNLO 

01 DC HR 




EB3E 
EB02 
LB 22 


— 


NOWRPO 

NTBRK2 

■iWALUD. 


EA98 
EDI B 
.0084. 


0090 

005D 


0KTIM1 

OLDCOL 


PD23 

00511 


NS I GN 
N'l PRAM 
NUUK -- 


DED1 

LOGCOL 

0063 

0234 

LPFNV 

0235 

DQ01 

Ml pi 

D009 

D003 

M3PL- 

DOOB 

02E7 

Ml M I DP 

02E5 

004D 

MDNQRG 

F0E3 

0010 

MACK 

004 E 

0061 

NEWROW 

0060 

D4QF 

NGCKSM 

0Q3C 

0082 

NORMAL 

004E 

EA52 

NOT DON 

EA81 

EAQO 

NOTOPN 

0085 

OOEE 

NTBRKO 

EASS 

EB IF 

NTOVRN 

EB27 

. EAJ5.6. 

JUDMHI 

.. DOHA. 








OK I I MR 
01 PROW 


ED4C 
00 5A 


01 DAI)R 
OPEN 


005E 

0003 


Hi I'N IN 

._ 0004 

.JQPNINO 

ODGC 

OP NUT 

0008 

UP M l MP 

0066 

OUR RUN 

003E 

POPE 

D004 

POPl 

DOOC 

P1PF 

D005 

PI PL 

DOOD 

P2PF 

D006 

P2PL 

DOOE 

P3PF 

D007 

P3PL 

rifiDr* 

PACTL 

1)302 

PADDLQ. 

0520.-.- 

PAD.DLL 

Q27.1 

PADDl 2 


PADDL3 

0273 

PADDL4 

0274 

PADDl 5 

0275 

PADDl 6 

0276 

PADDL 7 

02/7 

PBCTL 

D303 

PBPNT 

001 D 

PbUFQZ 

DOLE 

PCQLFLO . 

-Q2CQ. 

BCOLRX. 

Q2C1 

PCQLR2 

Q2C2 

PC01R3 

02C3 

PENH 


PENV 

D40D 


D300 

PI or 

0050 

PLUS 

ECFC 

PLYARG 

05E0 

PI YFVt 

DD40 

EtiBASE 

D4.QZ 

PQ INI 

002L . 

PC1KEY — 

D5QQ 

1'DKMSK 

QQlQt 



POKTAB 

EDI >2 

PORTA 

D300 

PLIRTB 

D301 


P201 

P0T2 

D202 

PUT 3 

D203 

PQI5 

J12Q5 

EQI6 

0206. — 

PQT? 

0207 

PRINTR 

0040 

PRINTV 

E430 

PRIOR 

DO IB 

PRNORG 

EE78 

PRVOPN 

0081 

PTEI4P 

00 IF 

PTRICO 

0270 



PTRIC2 


PTRIG4 

0280 

PTRIG5 

0281 

PTRIG6 

0282 

SIO < 

SERIAL 

BUS INPUT/OUTPUT 

CONTROLLER ) 


PDTO 
pm 4 
POTCQ 
PRNBUt 
PTIMOT 


PTRIC7 


D204 

D20B 

03C0 

001C 

Q22E. 

0283 


Moore Business Formi, Inc. sv 1412T 


i' tUlbV _ UcJ L U 

PTH 104 0230 


tftlul JJ2/1L 




PTRIG5 0281 


PTRIG6 0382 


■ P- CRiea 


PTRJG7 


Q27F 

0283 


SIO < St RIAL DUS INPUT/OUTPUT CONTROLLER ) 


G 


r 


m 

i 

0 

0 

» 

# 

# 


PUTCHR 

RAMLO 

RBLOKV 

RECVDN 

KL-LQNt 



SC RE MV 
SDLSTL 
liENIiEM 



GOOD 
0.004 
E47A 
0039 
LAI 13 

0078 

0079 


E4 JO 
0230 


PUTREC 

RAMS12 

RDONLV 

RECVDS 

-RENAME. 

RMARGN 

RRETRN 


SCRFLG 

SDMCTL 

SENDEV- 


0009 
Q2E4 
0087 
EC64 
0020 - 
0003 
ED JO 
0316 
02BB 
022F 
-E468 


RADFLG 

RAM I DP 

RIV.AD 
RECVEN 
RET URN 
ROW AC 
RSIRG 
SAVMSC 


OOFB 
0Q6A 
0052 
EC IF 
EAOD 
0070 
OOOA 
0058 


RADt IN 
RANDOM 
RFCEIV 
HEDGE 
JUHQHI 
ROWCRS 
RT Cl OK 
SCRLBT 


0000 

D20A 

EAE2 

0027 

OOQO- 

0054 

0012 

0045 


SCR MEM 

SEND 

SLNUIN 


0093 

EA6B 

ECBE 


SDL STM 
SENDDS 
SERIN — 


0231 

EC63 

D2QD 


D20D 


02BE 
LLLQINI. E-94.4 




SETVBV E45C SETVBX EDBD SHF AMT 006F 

SIDWAV 0053 SIN BD81 BIO E959 

SXDliMV 2465 Q100RG E944 SXOSPR 0014 


BIDV 
SIZEPO 
-311CXL 



E459 

D008 

D20E 


SIRHI 
SIZEP1 
SlxRES. 
BOR 


OOEH 
D009 
3)30 A 


IRQ EB9F SRTIR1 




BE HI 
EBC5 


SI I CKO 
ST I ME R 
i i T I UCa .. 


0278 

D209 


0287 



STICK1 0279 
STRIGO 0234 
BITMQT 2.C7-9. 


007 H 
TDLO OODl 
TFMP3 Q31S 


TJMER1 

TIMIT1 

TMPCOL 



030C TIMER2 0310 

EBCF TIMDUT OOOA 

02119- TM E LBJ Q2A1 


EBOC 
DO! J 
.01112 


TOUT 1 ED48 
TRIG2 DO 12 
TS T DA T OOP? 


S3 RLO 

SIZEP2 

SKS7AT 


001 1 
DOOA 
-D20E 


SIZEM 

SIZEP3 

SOUNDR 


DOOC 

DOOB 

0041 


SRET'RN 
SRi 1R2 


EB36 

EBED 

-0053 


SI JCK2 
STRIG1 
SUBTMP 


027A 

0285 

Q29E 


SYSVBV 

TEMP 

LEMPHI 


E45F 

023E 


T 3 ME LG 
T 1 NDEX 
LMllSJOW 


0317 

0293 

Q2BB 


I NAMSZ 
7 R 3 G3 
1 30 OQL 


0006 
DO 13 


7 XT OLD 

0296 

TXTROW 

0290 

VHREAK 

0206 

VCOUNT 

D40B 

VDSL ST 

0200 

-VECXBJL- 

.E4QP 

VKEYHD 

0208 

VPRCED 

0202 

VSEROC 

020E 

VSEROR 

020C 

VTIMH4 

0214 

VVBLKD 

Q224 

WAITER 

FC9F 

WARMST 

0008 

W1HGHI 

0000 

WIRGLO 

OOH 4 

UR T TF 

0057 

WRQNLY 


XI7VHV 

E462 

XMTDON 

003A 

Z TEMPI 

OOF 5 

ZTEMP3 

OOF 9 






UNLOCK 
VCT ABL 

samm 


0024 
E480 
-0216 - 


VSCRQL 
V7 3 MR 1 


D405 

0210 


WARMSV 

WMODE 

US I PC 
/EH IT 
7 TEMP 4 


E474 

0289 

-QOOF 


EC 71 
00F7 


SR T I MR 
BSE LAG 
STATUS 
S I 3 CK3 
STRIG2 
-8U CC 2S 


022B 

02FF 

UuJU 


027B 

0286 

Q0Q1 


T AH MAP 
TEMPI 


02A3 

0312 


'LIMIT 
TMPC HR 
LM2X1 . 


EBA9 

0050 

.0290 


7 R 3 GO 
TRNRCD 


D010 

0089 


USAREA 0430 
VDELAY DO 1C 
VINTER 0204 
VSER1N 020A 
o 


VTIMRf 


0212 


VVHI K I _Q222 WAIT 


WAT COM E9D7 
WOK EA3D 


ziocb 


0020 
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***** 4 : 00: 00 P. M. " 


0002 
OOP A 




S I A I OH 
SI AT VI 




DVSTAT/25A 
-•256*STAT VI H-DVSTAT 


STATUS POINTER 



lillilUJU s_ 




7 


0003 

0021 

jQOOO 


00/10 

0080 

— 


ST AT C 
FORMAT 
.NUOAl L_ 


©IT DAT 
PUT DAT 


. |_ 


$40 

$80 






DISK STATUS DCH COMMAND 
DISK FORMAT PCD COMMAND 
SIO CO MMAND FO B "NO DATA" QPERATIU 


SIO COMMAND FOR "DATA FROM DEVI. 

- 


SIO COMMAND FOR "DATA TO 






VECT ORS 


$E4D0 


E4 53 4C FO ED 






JN3T 


DSKIF 


DISK INTERFACE ENTRY POINT 
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DISK ***** DIBKP 8*C 
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J -DBA A9 AO 
LrJJL C BD 16 02 

ede f 60 


DINIT I DA #160 

QTA DSKTIM 

RTS 



i 

i 

DISK 

INTERFACE EN 

EDFO A9 31 

DSK1F 

l DA 

#DISKID 

PDF 2 OD 00 03 


ST A 

DDEVIC 

PDFS AD. 46 OP 


1 DA 

r»C?UT T M 

PDFS AE 02 03 


1 DX 

Uur\ i xn. 

DCOMND 

EDFB FO: 2X) 


CPX 

^FORMAT 3 

EDFD FO 02 - 


BFO 

PUTDTO 

EDFF A 9 07 


1 DA 

#7 

EE 0 1 8D 06 03 

put in o 

ST A 

DTIMLO 

EE 04 A? 40 


i nv 

#GETDAT 

EE06 AO BO 


- *«■ ■ 1 < ... 

1 DY 

#$B0 

EF OB AD 02 03 


L DA 

DCOMND 

. — Ei-OB.C 9{*15X> 


CMP 

#WR ITF 

EEOD DO 02 


BNE 

CKSTC 

F E OF A2 80 


1 DX 

#PUTDAT 

PF1J C9C§Z> 

CKSI C 

CMP 

#ST AT C 

EE 13 DO OC 


BNF 

PUTCNT 

EE 15 A9 EA 


L DA 

#STATVL 

. . EE. 1.7 BD 04 03 ■_ 


SI A 

DBUFLQ 


EE 3 A 

A9 

02 



L DA 

#STATVH 

EF 1 C 

BD 

05 

03 


ST A 

DBUFHI 

FF 1 F 

AO 

04 



i nv 

#4 


BE 

03 

03 

PUTCNT 

. 

DSTATS 

EE24 

OC 

OS 

03 


STY 

DBYTLO 

EE 27 

A9 

QD-. 



EDA 

#0 

EE 29 

BD 

09 

03 


ST A 

DBYTHI 

EE2C 

20 

59 

E4 


JSR 

SIOV 

-- . . EF-2F 

10 

01 



BPI 

GDDDST 

EE 3 1 

60 




RIS 


EE32 

AD 

02 

03 

GOODS! 

f T ) >A 

DCOMND 

EE 35 

_ C 9 

53 



I C i'll ; 

#STATC 

EE 37 

DO 

OA 



I BNE 

PUTBC 

EE 39 

20 

6D 

EE 


JSR 

PUTADR 

FF.BC 

AO 

02 





FE3E 

B1 

15 



L. DA 

(BUFADR), Y 

EE40 

BD 

46 

02 


JR A 

DSKTIM 

r-r-43 

AD 

02- 


PUT DCL 

l DA 

DCOMND . 

EE 4 6 

C9 

21 



CMP 

#FQRMAT 

EE4B 

DO 

IF 



BNF 

EMDDIF 

EE4A 

20 

60 

FF 

FMT D 

U3R 

PUTADR. 

EF 4 D 

AO 

FE 



1 DY 

#$FE 

EE4F 

CB 



TWICE 

1 NY 


F F SO 

OR 




1NY 


FF 51 

B1 

15 


RDBAD 

1 DA 

(BUFADR), Y 

FF 53 

C9 

FF 



CMP 

#$FF 

FF55 

DO 

FR 



BiML- 

. TWICE 

EE 57 

CB 




3 NY 


F F 58 

m 

15 



1 DA 

(BUFADR), Y 






1MY 


EE5B 

C9 

FF 



CMP 

#$FF 

EF5D 

DO 

F2 



BNF 

RDBAD 

_ F.E.5F 

as.-. 




DRY- 



— * — ■:■■■ — r ~ 

I f- 60 88 lil'Y 


SET INITIAL DISK TIMEOUT TO 160 SEC 


POINT 


SET SERIAL BUS 1.1) IN DCB 


IS COMMAND A FORMAT COMMAND? 

NO, SET TIMEOUT TO 7 SECS 
PUT DISK TIMEOUT IN DCB 
SET " GET DAI A" COMMAND FOR SIO 
SET BYTE COUNI 10 J 20 
READ COMMAND IN DCB 
IS COMMAND A "PUT SECTOR" COMMAND? 

YES, SET "PUT DA I A" COMMAND FOR SIO 
IS COMMAND A -STATUS COMMAND? 



SET BUFFER ADDR TO GLOBAL STATUS BUFFFR 

YES. SET-BYTE. COUNT TO 4 

PUT STATUS COMMAND FOR SIO IN DCB 


PUT BYTE COUNT IN DCB 
CALL SERIAL 3/0. 

MQ ERROR 

NO, GO BACK 

READ THE COMMAND 

WAS IT A STATUS COMMAND? 

PUT BUFFER ADDR IN TE MP REG. 

READ DISK TIMEOUT VALUE BYTE OF STATUS 
PUT Ft IN DISK TIMEOUT REG. 

WAS COMMAND A FORMAT COMMAND? 

YES, PUT. BUFFER ADDR INTO TEMP REG 
SET BUFFER POINTER 

I NCR BUFFER POINTER BY 2 
READ LO BYTE BAD SECTOR DATA 

Iff ,., IT 11 FF 1 * ? 

YES, 

READ HI BYTE BAD SECTOR DATA 


IS IT "FF" ? 


YES, 
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***** 3/9/79 


***** 4:00:00 K M. 


J 

EE&l 

8C 08 

03 

STY 

DBYTLO 


EE 64 

A9 00 


Li) A 

#0 

t 

EE 66 

8D 09 

03 

STA 

DBYTHI 

► 

EE 69 

AC 03 

03 

ENDD1F l DY 

DSTATS 


EE6C 

_6a_ 


RTF? 



PUT HAD SEC I ON BY IP COUNT INTO DCB 


» 

i 

i _ . — 

; SUBROUTINES 


i PUT BUFFER ADDR FROM DCB INTO TEMP RFC 


EE6D AD 04 03 PUT ADR l DA DBUFLO 

EE 70 85 15 ST A BUFADR 
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SYMBOL TABLE 


a—. ADDCUR 

030E 

ADR ESS 

0064 

AFP 

DSOO 

ALLI'O! 

D208 

AN! J C 

1)400 

APPEND 

0001 

APPMHI 

OOOE 

A! AC HR 

02FB 

AT AN 

B £-43 

ATRACT 

004 D 

AUDC1 

D201 

AUDC2 

D203 

A0PQ3 

1)205 


D207 

AUBCTI DPOR 

AUDIT 

D200 

AUPF2 

D202 

AUDF3 

D204 

AUDI - 4 

D206 

BAD IOC 

0086 

BADMOD 

0091 

BFENHI 

0035 

BFFNLO 

0034 

B I ! MSK 

006E 

uurjy 

OSBA 

Bl KBDV 

£47 1 

BOOT ? 

0009 

BOOT ad 

0242 

BOTSCR 

02BF 

BPTR 

003 D 

BRKABT 

0080 

BRKKEY 

001 1 

BUFADR 

003 5 

BUFCNT 

006 B 

BUFRFL 

0038 

BUFRHI 

0033 

RUFRLP 

QQ32 

. BURST R 

006 C 

-CA8BUF 

03FD 

r A'ii- i v 

E440 

CASF1 Q 

030F 

CAS INI 

0002 

CASORG 

EF41 

CA8SB1 

004B 

GASSET 

0043 

CAUX1 

023C 

CAUX2 

023D 

CBAUDH 

02EF 

_ CBAUDL 

02LL 

CCDMND 

023B 

CDLVIC 

023A 

CD 1 MAI 

0226 

CDT MA2 

0228 

CDTMF3 

02? A 

CPTMF4 

022C 

CD! Ml -5 

022E 

CDTMV1 

0218 

CDTMV2 

021 A 

CD! MV 3 

02 1C 

CD! MV4 

02 IE 

f oi mvt? 

0220 


Q2FC 

CHI 

02F2 

Oil AC! 

02F3 

CHACTL 

D401 

CHAR 

02! -A 

CHBAS 

02F4 

CUBASE 

D409 

CHKERR 

008F 

CHKSNT 

00 3 B 

CHKSUM 

0031 

C HR OR G 

EOOO 

-jCXOCHR 

002F 

CIOINV 

L46F 

CimiRC 

E4A6 

C J flV 

E456 

CJX 

00F2 

CKEY 

004 A 

CKSTC 

EE1 1 

CLOSE 

OOOC 

COL AC 

0072 

COLBK 

DO 3 A 

COl CRS 

0055 

COl DS! 

0244 

cm nsu 


cm T MO. 

007 A ... 

-CULURO- 

. Q2C4 

coi-oai 

02C5 

COLORS 

02C6 

C0L0R3 

02C7 

COl OR 4 

02C8 

COL PFO 

DO 16 

C0LPF1 

DC) 3 7 

C0LPF2 

DO 3 8 

C0LPF3 

DO 19 

COL PMC) 

DO 12 

COLPM1 

DO 13 

C0LPM2 

DO 14 

CULP M3 

DO 15 

COLRSH 

004F 

CONSOL 

D03F 

COS 

BD73 

C0UNTR 

007E 

CR 

009B 

CRETRY 

0036 

CRITIC 

0042 

CRN! PC 

EE78 

CRSINH 

02F0 

C R SR OR 

OORD 


r /| * y | \ 

CS! AT 

OP80 

C l *j /\ 


DAUX 3 

030 A 

DAUX2 

030B 

PBSPCT 

0241 

DBUFHI 

0305 

OBUFLO 

0304 

DBYTHI 

0309 

DBYILO 

0308 

DCB 

0300 

DCOHND 0302 

DDEVIC 

0300 

Pi -01- LG 

OGFB 

Dl CON 

0006 

DELETE 

0021 

DELTAC 

0077 

DEI TAR 

0076 

DFRROR 

0090 

DFLAGS 

0240 

DIGRT 

OOF 1 

D INDEX 

0057 

DIN IT 

EDEA 

DIRECT 

0002 

DISK 

0044 . 

PI ship 

Q.Q31 

DISLI^ E4P0_ 

DISPLY 

0053 

DLISTH 

D403 

Dl 3 STL 

D402 

DM AC! L 

D400 

DMASK 

02A0 

DN AC K 

008 B 

DOS INI 

OOOC 

DOSVEC 

OOOA 

DRAWLN 

OOl 1 

DRETRY 

0037 

PRKMSK 

004E 

DSKFMS 

0018 

DSKIF 

EDFO 

DSKINV 

E453 

DSKORG 

EDEA 

DSKSPR 

0014 

DSKT1M 

0246 

DSKUTL 

001 A 

DSPFLG 

02FE 

DS! A! 

004C 

DSTATS 

0303 

DTI Ml 0 

0306 

DUN IT . 

Q3Q1 

DUMUSL 

03Q7 

DVSTAT 

02F A 

EDITRV 

E400 

FFXP 

OOED 

ENPDIF 

EE69 

ENDPT 

0074 

EOFERR 

0088 

ERRFLG 

023F 

FSCFL G 

02A2 

ESI ON 

OOFF 

.EXP. 

JQIiCi) 

TlXF1.0 

DPCC 

1-ADD 

DA66 

FASC 

DSF6 

FCHRFL 

OOFO 

F D 3 V 

DB28 

FFOF 

003F 

FIL DAI 

02FD 

FILFLG 

02B7 

FIT 1 IN 

0012 

FI POP 

DD8D 

FI DOR 

1)1)09 

FLD1P 

DD9C 

ELD ER PPm _ 

FLFTR 

OQ.FC 

FNOVE 

DDB6 

FMSZPG 

0043 

F Ml D 

EE 4 A 

FMUL 

DADB 

FNCNOT 

0092 

FORMAT 

002J 

FPI 

D9D2 

FPRFC 

0006 

FPSCR 

05P0 

FPSCR 1 OFF C 

IPIR2 O.O.FE 

FRO 

OOP 4 

FR1 

OOEO 

FR2 

00P6 

FRF 

OODA 

FRIG 

0040 

FRMERR 

008C 

FRX 

OOF C 

FSCR 

05E6 

FSCR 1 

05EC 

FST OP 

DDAR 

FSTOR 

PDA/ 

JLUUli 

PA6.0 

— LTYPE. _ 

003E 

GFTCHR 

0007 

GETDAT 

0040 

OFTREC 

0005 

01 BABB 

02E0 

GOODS! 

IF 32 

GP R I OR 

026F 

ORACTL 

DO ID 

GRAPH 

DO 11 

OR AFP 0 DOOD 

OBAFPi 

POOF 

0NAFP2 

POOF 

GRAI-P3 

DO 10 

i IA! ABS 

031 A 

HITCLR 

DO 3 F 

HOI Dl 

0051 

MCH D2 

029F 

HOL D3 

029D 

H0LD4 

02BC 

HOI D5 

02BD 

HOL DC FI 

007C 


i |i T iNO DQ04 HP0SM1 POOL HP0BM2 PQQ6 JXQQ? 

; fPOSPO DOOO HP0SP1 0001 HP08P2 0002 HPQSP3 D003 



DISK 


D1SKP SRC 


3 / 9/79 


4 : OO OO P.M 


. 




HSC KOI 

I >404 

ICAX 1 

034 A 

1 C AX 1 Z 

1 CAX 22 

0 O 2 B 

ICO AH 

- 0345 

1 CBAH 2 

1 CBA 1 Z 

0024 

IC 8 LH 

0349 


1 CBLLZ 

0020 

I CCOM 

0342 

1 CCOM r 



-0341 

JLC 0 NQZ 

0021 

1 LU 10 

IC 1 DNI I 


ICPTH 

0347 

ICH'I HZ 

ICPTl Z 

0026 

ICSPR 

o:* 4 c 

IC 8 PRZ 

1 CSTAZ 

0023 

Iff. 

09 AA 

1 NliUFF 

INS DAI 

0070 

INTABS 

0200 

1 N 1 P MP 

1 NTURG 

P 6 D 5 

INTZBS 

OOIO 

1 NVP LG 

1 UCBASL 

0020 

inrnR 7 

- 001 Q, 

1 UCPRE 

JRGST 

D 20 E 

KBCODE 

0209 

K 1 ID 

KEYBDV 


KEYDEL 

02 P 1 

l BP END 

LBPR 2 

Q 57 F 

-LEUFF- 

0580 

LEDGE 

t INZBS 


LNARGN 


l UCKFL 

LOG 10 

DED 1 

I.OGCOL 

0063 

LOOMAP 

LPENV 

0235 

MQPF. _ 

DOOO 

MODI 

M 1 PL 

1)009 

M 2 PF 

0002 

M 2 PL 

M 3 PL 

DOOB 

MAXDEV 

0021 

MAX 1 OC 

MEMTQP 

Q 2 E 5 

MLTTJ 1 P _ 

0066 

MUDLM 

MXDMOD 

0010 

NEWCOL 


NLWROW 

NH 1 RES 


NMIST 

D 40 F 

NHCKSM 

NONDEV 

0082 

NflTF 

0026 

NUlilPN 

NVAt 3 D 

0004 

OLDADR 

0051 

Cll DC HR 

01 DROW 

00 5 A 

OPEN 

0003 

OPNIN 

_ QP NQT - 

OOOO 

QPNTMP 

0066 

uvkkUN 

POPL 

DOOC 

Pi PF 

DOOO 

PI PL 

P 2 PL 

DOOE 

P 3 PF 

D 007 

P 3 PL 

PADDLQ 

0270 

PADDL 1 

037 1 

PADDL P 

PADDL 4 

0274 

PADDL 5 

0275 

PADDL 6 

PBCTL. 

D 303 

PBPNT 

0011 ) 

PDUFSZ 

PCOLR 1 

0201 

. PC 0 LR 2 

0.202 

POOL R 3 

PENV 

D 40 D 

PIA 

D 300 

PI YARG 

PMBASE 

D 407 

POINT 

0025 

POKEY 

EURTA - _ 

DvlOO 

— P-QRTB 

-0201 _ 

-EXOiL 






POT 2 DPO 2 

POT 6 D 206 

PftlMV E 430 
PRVOPN 0031 
PTRIG1 OP7D 


PUT BC 

pin Di o 


RANDOM 

READ 

Rm&OM 


EE43 
BEOS 
OOOO 
DP OA 
0052 
11002 


f 


P OT 3 

P 0 T 7 

PRIOR 

PTEMP 

PTRIG 2 

P TR I SA 


0203 
DP 07 
DQJM .. 
OOIF 
027 E 

oeaa. 


P 0 T 4 
POT GO 
PKNBUF 
PI I HOT 
PTRIG 3 
jeifilGZ 


002A 

0023 

0029 
0017 
Q 34 Q 
0027 
002 C 
QQF 3 
022 D 
0 PB 6 
OQFF 
004 B 
05 FF 
0002 
0023 
02 B 2 
DOOB 
DOOA 
0080 
004 D 
0060 
003 C 

00 5 D 
0004 
008 E 
DOOD 
DOOF 
0272 
0276 
00 IE 
02 C 3 
05 E 0 
D 200 
0 2.00 


JCAX2 
ICb Al- 
ice (IM/ 
lCiilDZ 

1N3CLR 
I NT 1 NV 
ICJCB 
IUGLN 
KB DOR G 
1 HPR 1 
LINKUP 
LOG 
L PENH 

M 3 PP 
MEML 0 
MONUKG 
NM 1 EN 
NODAL 
-N 31 GN 
01 DC 01 
OPNJNO 
POPE 
P2PF 
PACTL 
PADDL 3 


034 B 
0344 

0348 

0020 

0346 

0343 

0020 

E 46 B 

0340 

02 QE 

F 3 E 4 

057 E 

0247 

DECD 

0234 

L >001 

D 003 

02 E 7 

F 0 E 3 

D 40 E 

0000 

OQEE 

005 B 

OOOC 

D 004 

D 006 

D 302 

Q 273 




PADDL 7 

PCDLRO 

PENH 

PL.YFVL 

POKMGK 

-EOT J 


D 204 

D 20 B 

03 C 0 

001 C 

027 F 

G 2 B 3 


PR 1 NTR 
-P.NNQRG 
PT R I GO 
PTRIG 4 
PUT ADR 


POT 5 


GOOD P 

000 V PUTBEC 

0004 RAMS 17 Q 2 E 4 


' 


0277 
02 C 0 
D 40 C 
DD 40 
0010 
0201 
D 205 
0050 
EE 73 


RBLOKV 

RECVDN 

Rom e 


t 47 A 
0039 
0020 - 


RPBAD 
R P DOE 
m iWCRS 


m CL OK 
OCR EDI 
SDLSTlt 
HER I N 
3HFLOK 

oia v „ 


0012 

004 0 

0231 

D20D 

OPRE 

E4D9 


SJZEP2 

sRiim 

STATVL 

STICKS 


DOOA 

D20F 

Q22B 

0053 

0222 . 


SAVADR 

SCRENV 

SDLSTL 

SEROUT 

SIN 

S1ZEM 

SIZEP 3 

SOUNDR 


0068 

E 4 10 

0230 

D 20 D 

BP 81 

POOL. 


SAVIO 
BCRPLG 
SPMCTL 
SPT VBV 
8101 NV 
iilZE 


0316 

02BB 

022F 

E45C 

E465 


027 C 
0280 
EL6D 

OOFB 
006A 
0087 
0020 
0079 
SAVHSC 0058 


1 ,M-, 

RA 0 FL 
RANT DP 
EE 51 RDDNLY 

0027 RENAME 

0054 EtXJRXNC 


STR I CP 0206 


DOOB 
004 1 
SSFJLAG Q2H 
ST AT IS OOOD 
ST I CKO 0278 

-S-TJLia EB 0209. 

STRIG3 0387 


BKCTL D20F 
BP PC IL OOOE 
SSKOTL 0232 
STATUS 0030 
STICK1 0279 
31 Rlfi Q 0384 - -3IR101 

BUD T HP 029E SUCCES 


BCR MEM 
SENDEV 
SHF AMT 
SJDORG 
3XZEEX 
SKRES 
SOR 
B'l ACKP 
S I AT VH 
ST 1CK2 


0093 
E468 
006F 
E944 
D009 
D20A 
BEB 1 
0318 
0002 
027A 
0280 
0001 
















ZLPi’ 

HKSTAT 
SR T I MR 

STATC 

STATVt 

JjJlCK 3 


DOOA 

DPOF 

02213 

00 S3 

001 A 

Q 22 B 


HTRIG2 0286 


SIZEP3 

SOUNDR 

.SSFLAG 

ST AT I S 
ST I CKO 
-SUMER 
STRIG3 


DOOR 
004 1 
Q2FF 
0001 ) 
0278 
dpq v 
0 ,' '07 


SKCIL 

8PECIL 

SSKCTl 

SI ICK1 

iilklGQ 

SUHT MR 


D20F 

OOOE 

0232 

0030 

0279 

.0284 

029E 


SKRF3 

SOU 

ST ACKP 
S I AT VI I 

ST ICK2 

SUCCEiS 


D20A 
BEB 1 

0002 

027A 

0285 

0001 
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8WPFLG 

TEMPI 

007 B 
0312 

SYSVBV 
TEMP 2 

E4 OF 
03 1 A 

T AH MAP 

1 l.ivlUO 

02A3 
0315 
008A 
02 A 1 
noi o 

TEMP 
TIMER! 
T INDEX 
TMPRGW 

TL) 1 t\ -1 

023E 

030C 

0293 

02B8 


TIMER2 
TMPC HR 
IMF XL 

0310 
00 SO 
JQ29C 

TIMFLG 
IMP COL 
TRAMS 7 

031 7 
OPR 9 
Of>06 

i la b j- 

T 3 MOOT 
TMPLBT 
T » i cn 


TR 3 02 
TSTPAT 

txtoljd 

DO 12 
0007 
0296. 

TRIG3 
TWICE 
-IX TROW 
VCOUNT 
VECTBL 
a/HRCED- 

DO 13 
FF4I- 
0290 
D40B 
E400 
_G2Q3 

TR NR CD 
I X I COL 
UMi nou 

0089 

0291 

002/1 

UJxX-ki X ..... 
I SI AT 
TXTMSC 

1 19 A be a 

DOX X 
0319 
0294 

A A OA 


VHREAK 
VDSL ST 
VKEYliD 

0206 

0200 

-0208 

VCI ABL 
V3M3RQ 
usroni 

E480 

0216 

D40S 

VDFLAY 

VINTER 

UQf. n T M 

U4SO 

DO 1C 
0204 

nnnA 


VSEROC 

020E 

VSEROR 

020 C 

VI 3 MR 1 

0210 

VT3MR2 

UiJUA 

0212 


VTIMR4 

0214 

VVBL.KD 

0224 

VVBL.KI 

0222 

WARMST 

0008 


WARMSV 

E474 

WMODF OPf 19 

UR 1 T F 


i.n.jnkii \y 

A Ann 


WSYNC 

D40A 

XITV3V 

E4A2 

X NT DON 

yj f 

003A 

— ■WIXL.IImL Y 

ZIOCB 

UUb J 
0020 


/TEMPI 

OOF 5 

Z TEMP 3 

OOF 9 

21 t MP4 

00F7 





— 










PRINTER 


PRINTP. SRC 


3/9/79 


4 : OO: OO P. M 


.TITLE “PRINTER ##### PRINTP. SRC ***** 3/V//9 

l 

i 


4; OO OO P. M “ 


DEVICE NUMBER OR CCJDL EQUATES 


l 


0002 

()<>:'!< 

OP N OUT 
Nil UPS 7 

an 

as 

gs 
m _ 

♦2 

4£L 

20 

29 

*40 

0014 

OOID 

DRUE 37 
SBUESZ 
PDE-VN 
ST AT C 
WRIT EC 
CR 

0053 

0057 

009B 

*53 

*57 

*2B 

0030 

SPACE 

sz 

*20 

004 h 

N 


*4E 

0044 

D 

: 

*44 

0053 


K 

*53 


IOCB CJPPN FOR OUTPUT COMMAND 
PRINT NORMAL BUFFER SIZE 
PRINT DOUBLE RUFFE PR SIZE 
PRINT SIDEWAYS BUFFER SIZE 
PRINTER DEVICE NUMBER 
DCB STATUS COMMAND CODE 
DCB WRITE COMMAND 
ASCII CARRIAGE RETURN 
ASCII SPACE CHAR. 

ASCI) "N" CHAR. 

ASCII "D" CHAR. 

ASCII "S" CHAR. 


PRINTER HANDLER ENTRY POINTS 






» = 




i i#-ii . i i r~\ n r~* t ,i mrv v * ••«»(> .*■ 


E434 9D EE 
BA 36 A 6 EE 
-E.43SL .aQ_ EJEL 


. WORD PHOPEN-1 PRINTER HAND! PR OPEN 

. WORD PHCLQS-l PH CLOSE 

.WORD BADST—1 PH READ 

. WORD PHWRIT-l PH WRITE 

-WORD PHSXAT~:L _ n . .PH.JSUOULL _ 


l A 'Jl: DO 


. J 


13ADST-1 PH SPECIAL 
PHINIT PH i 


urn 






PRNORfi 












PRINTER HANDLER INITIALIZATION ROUTINE 






EE78 A9 IE 
EE/A 85 1C 
IlL JSL Ml 


PHINIT 


L DA 
ST A 

m 


#30 

PTIMOT 


SET UP INITIAL PRINTER TIMEOUT OF 30 Sl-C. 



tili T MTCO 




nuTMTP CD/ 


1 - - * Q/Q/70 *-*•*•*•* a* no* no p m 
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-4 




EPS 3 

A 9 

04 


PHST AT 

l DA 

#4 

Li-83- 

85 

IE 



ST Y\ 


FT 05 

AE 

7D 

EE 


LDX 

6PHSTL0 

EPOS 

AC 

7E 

EE 


l DY 

\P_HSTLO 

- - E.F8B 

A9 

53. 



1 DA 

ttSTATC 

EH8D 

3D 

02 

03 


ST A 

DCOMND 

FT 90 

SD 

OA 

03 


ST A 

DAUX1 

-EL-93 

TiO 

26 

.EE 


JSR 

SETDCB 

EE 96 

20 

59 

E4 


JSR 

SIOV 

EE99 

30 

03 



BMI 

BADST 

E1-9B 

20 

14 

FF 


OSD 

-PHPJ1T 

EL 9E 

60 



BADST 

RTS 



- PR I NT ER H ANDLER ST A T US ROUTINE. 

SET BUFFER SIZE TO 4 BYTES 

SET POINTER 10 STATUS BUFFER 
OET_jQEMMAF 1D i 0 " SI AT US " 


SET STATUS COMMAND 

GO SETUP DCR _ 

SEND STATUS COMMAND 
GO IF ERROR 

Ei JLMTQ GLOBAL BUFFER . 


EF9F 20 81 
EEA2 A9 QO 
EFA4 85 ID 
EF.A6 AO 


EE 


LL A7 B5 IF- 


I-.EA9 20 1A 
El AC A A ID 
LLAE ,A5 IF- 


EF 


PEBO 

EFB3 

S.1.B4 


9D CO 
E8 

-E4.-XE 


03 


ELBA 
FI B8 
ELBA 
FI DC 
FI BF 
ELCQ 


FO 13 

86 ID 

C9. 9B 
FO 03 
AO 01 
LO 


F HOP EM 


PRINTER HANDLER. OPEN ROUTINE __ 

DO STATUS COMMAND TO SIO 


JSR 

l DA 


ST A 
RTS 


PHSTAT 

410 

PBPNT 


CLEAR PRINT BUFFER POINTER 




PRINTER HANDLER WRITE ROUTINE 


T.LMiJLT SI A. 




FI Cl A9 20 


BL F II I 


HJT 

LDA 
ST A 
3 NX 
CEX 

IlL'L 

ST X 

GMP 

I DY 
JLlii 
I DA 


PRMOI 
PBPNT 
PTEMP 
PRNBUF* X 

-PBUFS2L 

BUFFUL 

PBPNT 

#CR 

BLFILL 

#SUCCES 

ttSPACE 


,[ cW^A •* w,A ^ e 


SAVE AC CUR , 

GO DETERMINE PRINT MODE 

GET CHAR. SENT BY CIO 
PUT CHAR. JN PRINT BUFFER 
I NCR. BUFFER PO INTER 
BUFFER i » 01 NT EH* B Ui - ELR SIZE? 


SAVE BUFFER POINTER 
IS Cl I AIL : F.tll ? 

IF YES* GO DU BLANK FILL. 

PUT GOOD STATUS IN Y REG FOR CIO. 

IT BLANK IN ACCOM. 
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E-FC3 9I> 

CO 

03 

Ml 1 HF SI A 

PRNBUF, X 

EECA 13 



1NX 


t FC7 14 



CPX 

PBUF9Z 

FFC9 DO 

F8 


HNF 

FILLBF 

r-s-rn A9 oo 

BUI FUL EDA 

__ #o_ 

FI CD 85 

ID 


SI A 

PBPNT 

FT Of AE 

7F 

EE 

1 DX 

/PHCHLO N 

Et.D2_.AC 

.80 

£E 

LDY 

TPHCHLO+H 

PPD5 20 

E6 

EE 

JSR 

setdctt - 

FFDB 20 

59 

E4 

USR 

SIOV 

PL DR AO 



__ RTS 








SI ORE* 11 IN PRINT BUFFER 


BUFFER HI ANK Mil FRY 
CLEAR PRINT HUE FEE POINTER 


SET POINTER TO PR INI BUFFER 

GO SETUP DCB 

SEND PRINT COMMAND 

„YES - 


s(& J 




PRINTER HANDLER CLOSE ROUT INF 



— 









FEE A 8E 04 0,3 
E3EE9 OC 05 03 
EJ J .-.C .A5L AD- 


SET DCB 


STX 

STY 

JJL>A 


DBUFLO 

DBUFHI 

#PJQEVN. 


SET BUFFER POINTER 


; 


HIE 8D 00 03 
H FJ A9 01 
EEL 3 BD 01 03 






FFFA A9 80 
EPF 8 AE 02 03 
Ei rn EO 53 

HID DO 02 
EEFF A 9 40 
FFQl OD 03 
EF 04 A5 IE 
EFO& 8D 08 
E l 09 42 00 


DDEVIC 

#3 

DUN IT 
#*80 
DCOMND 
iiSTATC 


PS IOC 

#*40 


SET PRINTER BUS 1. IX FOR DCB 

SET UNIT NUMBER TO I 
DEVICE Will EXPECT DATA 

STATUS COMMAND? 

EXPECT DATA FROM DEVICE 



— , — 



EFOE A5 1C 
EE1Q BD 04 

EF 13 AO 


03 

PS IOC 

HI A 

_ DSTATS 


SID MODI COMMAND. 

03 


l DA 
SI A 

PBUFSZ 

DBYTLO 

SET 

LO BYTE COUNT 



» DA 

*Q 



03 


SI A 

DBYTHI 

SET 

HI BYTE COUNT 

.03 _ 


LDA 

S1A 

PTIMOT 

DTIMLO 

SET 

DEVICE TIMEOUT COUNT 


RTS 
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EF14 AD EC OP 
-B47 X3U 1C. 


pi linn 



PI 1 9 60 


GET DEVICE TIMEOUT FROM STATUS & SAVE IT 

SAVE DEVICE TIMEOUT 


I DA 
TUA 


DVSTAT+2 
PTIMOT 


RTS 






•DETERMINE PRINT NUDE & SETUP PRINT BUFFER SIZE, DCB PRINT 


COMMAND, & DCB AUX1 FOR PR INI MODI 




FFJC A 5 2B 
EF1E C9 4E 
-El: EO DU 04. 


P RHODE LDY 
I DA 


CHORE CMP 
BNP 


El 22 A2 28 


l DX 


#UR I TEC 

1CAX2Z 

#N 

-CDUJQL 


PUT WRITE COMMAND IN Y REG 
READ PRINT MORE 


BNP 
CMP 


#NBUFSZ 

SETBSZ 


YES, SET NOR MAI CHAR. BUFFER SIZE 




m 




EF28 DO 04 
EF2A A2 14 
EP2C-D.Q..-QE 


BNE 
I DX 
J1NE 


FF2E C9 53 


CSIDE 


CSIDE 

#DBUFSZ 

.SETBSZ 


MM 

PRINT DOUBLE? 

YES, SET DOUBLE CHAR. BUFFER SIZE 


EE 30 
FF3P 

DO 

A2 

OB 

ID 



UNI- 

l.UX 

GOERR 

#SBUFS2 

EE 34 

86 

IE 


SET BSZ 

ST X 

PBUFSZ 

EE 36 

8C 

02 

03 


ST Y 

DCOMND 

-EL.3SL 

OP 

OA 

-03 , 


. ST A 

DAUX.1 




PRINT SIDEWAYS ? 

IF NOT, GO TO FRROR ROUTINE 
YES, SET SIDEWAYS BUFFER SIZE 




E.F3C 60 
EF 3D A9 4E 
_EE3E DO DD 




RTS 

GOFRR I DA #N 

ENE CMGDE 




; ************************************************************* 


~ — 




SPARE BYTE OR MODUI F. TOO LONG FLAG 


— 



t 

CRN! PC = * 




'$14 


00.14 00 


PRMSPR .BYTE CASORG-CRNT PC PRINTP TOO LONG 


END 









. . . 



STORE PRINT BUFFER SIZE 
STORE DCB COMMAND 
-STORE DCIi AUXi PRINT MODE 


SET DEFAULT PRINT MODE TO NORMAL 



Moor* Builncsi Formi. Inc iv I412T 


PUIN1FU 

****-«• 

PRINTP 


SYMBOL 

■ TABLE 

Ai*DCOR 

oaoL 

ADRES5 

AN! 1 C 

1)400 

APPEND 

AT AN 

BF43 

ATRACT 

ADDCO 

-D205 - 

—A11DC4- 

AUDF2 

D202 

AUDF3 

XADMOD 

0091 

BADST 

■ 1LLIMSK 

006E 

BLFILL 

BOOT? 

0009 

X POT AD 

XRKABT 

0080 

BRKKEY 


sue 


***** 3/9/79 ***** 



00: 00 P. M. 


-BUFFUL -ELCB 


RUFSTR 

CAS INI 

CAUX1 

CCOMND 

CDTMF3 

CDIMV1L 


006C 

0002 

023C 

023B 

OPPA 

-Q21A. 


CDUBL 
CHACT1 
CitKSHR 
C I OCHU 
C 1 X 
C OL AC 


EF26 
1)40 1 
QOBF 
002F 
00F2 
-0072 


JBUF BFL . . 
CASBUF 
CASORG 
CAUX2 
CDEVIC 
CDTMF4 
-CillMVS- 


COLDSV F477 
COLORS 02C6 
_£OLBEL_ IX) 17. 
C0LPM1 DO J 3 
CONSOL DO IF 
-0RiiIR7__Oii24- 


CRSROR 
CT1A 
D U SEC T 


DXYTH2 
DDFVIC 
..DLL T AC 


008D 
DOOO 
jQStl 
0309 
0300 
-007? . 


DJGRT 

DISKIV 

.DflACTL 


CH 

CHAR 

-CHKSNT 

CIOINV 

CKEY 

— ftQ LBK , . 

COLINC 
C0L0R3 
- C0LFF2 
C0LPM2 
COS 

- CRITIC 
CSIDE 

dbufhi 

DBYTLO 

DEGFLG 

-DLLXAfi_ 


0064 

OOOl 
0041) 
DP07 
D204 
El- 91 

-EEC! 

0242 
001 1 
-Q03 B 
OOF D 
EF41 
023D 
023A 
022C 
02 1C _ 
02FC 
03F A 
GG3B 
E46E 
004 A 

ixa a, 

007 A 
02C7 

DO IB 

DO . I 4 
BD73 
.0,042 


OOF 1 
B450 

m oo 


0044 
0300 
0308 
OOF B 
00Z6-. 


DOSVEC 

DSKFMS 


OOOA 

0018 


D INDEX 
DISPLY 
DN ASK 
DR AWL N 
DSKINV 


0007 
0038 
08A0 
001 i 
F453 


AFP 

appmhi 

AODC1 

AUDCTL 

AUDF4 

BFFNHI 

BL1 M 

urn SCR 

BUFADR 

BUFliUX 

CASE TV 

CASSBT 

CXAUDH 

CD l MAI 

CD I MF5 

ODTNV4. 

CHI 

Cl IX AS 

CHKSUM 

C I OORG 

CL OSE 

CPI CRS 

CDt PRO 

COLOR 4 

CPI PF3 

COL PM3 

COUNTR 

CXiMJ PC 

CSOFIV 

DAUX1 

DXUIL0 

DCB 

DFGON 

■43LRRQR 


D80Q 
OOOE 
D201 
D20S 
D206 
0035 
028A 
02BF 
0015 
0033 
E440 
004B 
02EF 
0226 
022E 
02 IE 
02F2 
02F4 
0031 
E4A6 
OOOC 
0055 
02C4 
02C8 
DO 19 
D01 5 
007E 
JEE4JL 

E47D 

030A 

0304 

0300 

0006 

jQO-90-. 


Al I PUT 
AT AC HR 
Mine;' 

AUDI 1 

BAD IOC 

BFFNl O 

BJLKBDV 

BPTR 

HUFCNT 

BUERLG 

CASFl G 

C ASSET 

CD AUDI 

CDTMA2 

CDTMV1 

CD1MVD 

CHAC1 

CHBASE 

CHUQRG 

C I PV 

CMPDF 


COL PR 1 
COLPFO 
CPI PMO 
COL RSH 
CR 

■OBSIMlt 


D.SKUTi 

001 A 

nrtPEi o 

HZHP ! • 

DTI ML 0 0306 

DUN IT 

0301 

EDITRV F400 

E EXP 

OOFD 

ERRFLG 

-Q23F 

ESC F LG 

asa: /• 

EXP 10 

DDCC 

FA DD 

. WLJ l£3 

DA 66 

FDI V 

DBF 8 

FE OF 

0031 • 


EEC 3 

F T IT T W 

no i p 

FL DIP 

DD VC 

FLD1R 

DDV8 

IMB7PG 

0043 

FNUL 

DADX 

HU 

D9D2 

FPREC 

0006 

FPTR2 

OOFF 

FRO 

001)4 

FRF 

0 ODA 

FREQ 

0040 

EiiLR Q5FA 

F8FR t 

om- r 

F8UB 

DA60 

FTYPE 

-UjjfiLu 

0031* 

QLBABS 

02E0 

GOERR 

EF81) 

_ GfiAFN 

DOLL 

GRAFPO 

DOOD 

0RAFP3 

D010 

HATABS 

031 A 

HOLDS 

029F 

H0LD3 

0891) 

UUL KCH 

OO 7 C . 

HPORMO 

1)004 

HP0SM3 

D007 

HPOSPO 

DOOO 


DIRECT 
DL ISTH 
DIMACK 
DUE TRY 
DBKORG 
JLLSTAX 


CST AT 
DAUX2 
DXUF S 7 
DCOMMD 
DELETE 
DP LACS. 


D2Q8 
02FB 
D203 
D20Q 
0086 
0034 
E471 
003D 
006B 
0032 
030F 
0043 
02EE 
0228 
0218 
0220 
02F3 
D409 
EOOO 
E456 
EF1E 
0244 
02C5 
DO 1.6 
DO 12 
004F 
009B 
Q2FQ 


DUMUSE 
FMDPT 
ES1CN 
FASC 
F I L DAT 
-LLDOP 
FI PTR 
FNCNOT 
FPSCR 
FR1 

FRMERR 
ES‘l QP _ 
OF 1 CHR 
OPR I OR 
GRAFT? 1_ 
HJTCLR 
HOL D4 
llPI-lSMI 
HP0BP1 


0002 
D403 
008B 
0037 
EDEA 
0O4C 
0307 
0074 
OOEF 
D8E6 
02FD 
DD§D 
OOFC 
0092 
05E6 
OOEO 
008C 
DDAB 
0007 
026F 
DOOE 
DO IE 
02BC 
DQ05.. 
D001 


DISK 
DL I STL 
DOS INI 
DRKMSK 
DSKT 3 M 
-DOT ATS 


0288 

030B 

0014 

0302 

0021 

0240 


0044 

D402 

OOOC 

004E 

0246 

0303 


I) VST AT 
EPF ERR 
.EXP 
FCI IRFl 
F 1 1 FL G 
-El DOR 
f*H( IVE 
FORMAT 
FPSCR1 
FR2 
FRX 

_ ESI .OR 
GE T RFC 
GRACTl 
GRAEE2L 
HOI D1 
HOL D5 
J P USM 
HP0SP2 


02EA 
0088 
DDCO 
OOFO 
02B7 
DD89 
DDB6 
0022 
05EC 
00E6 
OOEC 
DDA7 
0005 
DO ID 
DOOF 
0051 
02BD 
JDQ06 
D002 





















PN I N I L N 

***** 

PRINTP. SRC ***** 3/9/79 ***** 

4: 00: 00 

P. M. 

I IP OS P 3 

D003 

HSCROL 

0404 

ICAX1 

034A 

) CAX ! 7 

002A 


034 B 

ICAX2Z 

002B 

I CBAH 

0345 

1CBAU2 

0025 

ICBAL 

0344 

ICBALZ 

0024 

XCBLH 

0349 

ICBLIIZ 

0029 

1CBLL 

0348 

IC-BLLZ 

0028 

1 CCOM 

0342 

I CCOMT 

0017 

ICC-UMX- 

0022 

XCDNO 

0341 

1CDNQZ 

0021 

I CHID 

0340 

ICHID2 

0020 

I C I DNO 

0021- 

ICPTH 

0347 

ICPTHZ 

0027 

I CPU 

0346 

XCPTLZ 

0026 

1 CSPR 

034C 

I CSPR Z 

002C 

I CSTA 

0343 

ICSTAZ 

002-3 

UP 

09 AA 

i iMBUPF 

00F3 

INSCL R 

0020 

INSDAT 

00/0 

I NT ABS 

0200 

INTEMP 

0220 

INI INV 

E46B 

I NT OR G 

1 605 

INTZBS 

0010 

INVFL G 

02B6 

TnrH 

034 Q 


0030 

1 UCBSZ 

0010 

IQCFRE- 

OGFF 

IN GEN 

P20E 

IRQST 

D20E 

KB CODE 

0209 

KBD 

004 B 

KB DOR G 

F3E4 

KEYBDV 

E 4 20 

KB YD EL 

02F 1 

L BFEND 

05FF 

LBERX 

o'v/r- 

i BPR2 

057P 

LBUEF 

0580 

LEDGE 

0002 

LINBUF 

0247 

LINZBS 

0000 

l MARGN 

0052 

L OCKFL 

0023 

1 OG 

DECD 

LOG 10 

DED1 

i dGCQL 

0063 

L.OGMAP 

02B2 

1 P P MM 

0234 

i PENV 

0235 

MOPF 

DO 00 

HOPE 

D008 

Hi PF 

0001 

Ml PL 

0009 

H2PI- 

D002 

H2PI 

DOOA 

M3PF 

0003 

M3PL 

000 B 

HAX0EV 

0021 

MAX I OC 

0080 


p?F7 . 

HE N T OP 

Q2F5 

Ml TT MP 

0066 

MODEM 

0040 

HONOR G 

FOE 3 

MXDMOD 

0010 

N 

004E 

NBUFSZ 

0028 

NEWC0L 

0061 

NEWROW 

0060 

MMIEN 

D40E 

MM I RES 

D40F 

NNl Rl 

04OF 

NQCKRM 

-003C 

NUMDEV. 

0082 

NOT L 

—0026 

NOT OP N 

0085 

NS I ON 

OOEE 

N VALID 

0084 

01 DADR 

00 5E 

OLDCHR 

0050 

OLDCOL 

00 5 B 

81 DRQW 

00 5 A 

OPEN 

0003 

UP MIN 

ooa4 

OPNINO 

0000 

OP NOT 

0008 

OP MOOT 

0002 

OPNTMP 

0066 

OVRRUN 

OOBE 

pope 

D004 

POPL 

DOOC 

P J PF 

1)005 

P 1 PL 

0000 

P2PF 

D006 

P2PL 

DOOE 

P8PF 

1)007 

P3PI 

DO 01* 

fAQTL 

D302 

.PADDED 

.0270 

PADDl 1 

0271 

PADDL2 

0272 

PA0DL3 

0273 

PADDl 4 

0274 

PADDl. 5 

0275 

PADDL6 

0276 

PADDL 7 

0277 

PBCTL 

0303 

PBPNT 

00 ID 

PJ&UFSZ 

00 EE 

PC8I.R0 

02 CO 

PCULRl 

Q2C1 

FC0LR2 

02C2 

PC0LR3 

02C3 

PDLVN 

0040 

PENH 

D40C 

PENV 

1)4 OD 

PHCHLO 

EE7F 

PHCL OS 

EE DC 

PI UNIT 

EE78 

PHOPEN 

FF9F 


EL-17 L 

JK.HSIAX. 

EES1 

_p{ 1ST L 0 

EE7D 

PHWRIT 

FEA7 

PI A 

0300 

PI YARG 

05EO 

PL YE VI 

DD40 

PHBASE 

0407 

POINT 

0025 

POKEY 

D200 

POKMSK 

0010 

PORTA 

0300 

PORTS 

0301 

POlO 

D200 

PQT1 

0201 

P0T2 

D202 

P0T3 

0203 

POT 4 

D204 

POTS 

D205 

POT 6 

1)206 

P0T7 

0207 

pm go 

D20B 

PR I NTR 

0050 

PR 1 WTU 

P430 

PR TOR 

no 1 B 

0 RHODE 

EF1A 

. PBNBJUB 

Q3C0 

PRN0RG 

IE 78 

PRNSPR 

001 4 

PRVOPN 

0081 

ps :i ac 

EF01 

PTEMP 

00 IF 

PTIMOT 

00 1C 

Pi R I GO 

027C 

PINIG1 

0270 

F.XR1S2 

027E 

EXRIG3 

0221- 

PIR1G4 

0280 

El RIGS 

0281 

PTRIG6 


PTRIG7 

0283 

PUT CHR 

OOOB 

PUTREC 

0009 

RADFLG 

OOPB 

RADON 

0000 

NAM10 

0004 

RAMSJZ 

02E4 

RAMI OPS 

J1Q6A 

_RAN0QM- 

1,120 A 

JLKLUKV 

E47A 

-RDOMLY 

0087 

RECVDN 

0039 

REDGE 

0027 

RENAME 

0020 

R MARGN 

0053 

ROWAC 

0070 

ROWCRS 

0054 

ROW INC 

0079 

RTCl OK 

0012 

s 

30052 

2AVADR- 

0068 

SAV1Q — 

0316 

SAVMSC 

005B 

SRUFSZ 

0010 

SCREDT 

004 5 

SCNE NV 

E410 

SCR El G 

02BB 

SCR MEM 

0093 

SDLSTH 

0231 

SDl STL 

0230 

SDMCTl 

022F 

SENDEV 

. E4.6B 

SERIN 

0200 _ 

SLR OUT 

JD2QD 

_ JSETBS2 

EE 34 

SETDCB 

E E L 6 

8ETVBV 

E45C 

SHF AMT 

006F 

SHE t. OK 

02BE 

SIN 

BD81 

SIOINV 

E465 

8100RG 

E944 

siov 

E459 

SIZE M 

0000 . 

S.LZEPQ 

0008 

S1ZEP1 

D009 

SIZEP2 

DOOA 


SKCTL D20F D20A SKSTA1 D20F 

SUUNDH 0041 SPACE 0020 SPECIL 000E SON BEB1 

OETIMR. 022B SS FLAQ 0211 * JiiiKC.Il- .0232. STACKS 0313 

STATC 0053 ST AT IS OGOD STATUS 0030 ST I CKO 0278 













HR IN'U K ***** PRINTP. SRC ***** 3/9/79 ***** 4:00:00 P. M 


HTICK1 

0279 

STICKS 

02/A 

SI 1 CK3 

027B 

HI l HER 

k - 8 TRIGG 

Q284 

SIR IQ 1 

0205 

81 H 1 02 

0286 

_ STR1G3 

8UBT MP 

029E 

SUCCES 

000 i 

SWHFLC 

007B 

SYSVBV 

1 ABMAP 

02A3 

TEMP 

023F 

1FMP1 

0312 

TEMP 2 

juMP_a 

0310 — 

XlflERX- 

030 CL 

3 1MLR2 

0310 

T1WLL0 

1 1 MOOT 

000 A 

TINDEX 

0293 

') MPC-HR 

0050 

TMPC til 

1MPLBT 

02A1 

TMPROW 

OPBii 

1 MP X 1 

029C 

1 RAMS 7 

TH1GO 

noio 

TRIQ1 

DQ1 1 

*1 R 102 

DO 12 

TR 103 

TRNRCD 

0009 

TSTAT 

03 1 9 

T STD AT 

0007 

TXT COL 

IXTMSC 

0294 

TXTOLD 

0296 

TXTROW 

0290 

UNL OCK 

08ARFA 

0400 

VRREAK 

.0206 

V.CDUNT 

D40B 

„ VCIABL. 

VDELAY 

DO 1C 

VDSLST 

0200 

VEC'f BL 

E400 

VIM1RQ 

VINTER 

0204 

VKEYBD 

0208 

VPRCED 

0202 

VSCROL 

VSER 1 N 020A 

VSER DC 

o; 'Oi- 

VSER OR 

020C 

VI I MR 1 

VTIMR2 

0212 

VTIMR4 

02 J 4 

WBL KD 

0224 

WHI KI 

WARMST 

0008 

WARMSV 

E474 

WliODE 

0289 

WRIT EC 

WRONLY..... 

0083 

j 

D40A- 

.... X1TVBV. E462 

XMI DUN 


D209 
0287 
E45F 
0314 
, 0317 
02B9 
0006 
D013 
0291 
0024 
E480 
0216 
D405 
0210 
0222 
0057 
_ 003A 


7 I0CB 


0020 


2 TEMPI 00! • 5 




Z TEMP 3 00F9 7 IF Mi"! 


OOF 7 














— 
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C ASSET HAND! ER 3/12 < DK1 : C ASCV > 


c 


t 


0003 
001 D 


CHUf-H 

CBUFl 


$ 

I 

It 

% 

% 


0040 

- - QQSU. 


SR S I A 

<3LKn A 

sr 

$40 

°°3« 

003C 

: --^V, •• • ••• 

MOT ROD 
MOTRST 

r: 

»• •• 

*uU — 

$34 

$3C 

OOFC 

TV" — UOLA 


I 

DT A 
rn | 

r-_ 

$FC 
<l;cr a 

OOFE 

OOED 

nnnp 


EDI 

llfDR 

TONE! 

ex 

v ; y 

$FE 

$FB 

2 


inLE 'GASSET HANDLER 3/1.2 <DK1CASCV>' 
CASBUF/256 


COO READ STATUS 
Sill WRITE S1AT US 


0001 



DATA RECORD TYPE BYTE 
EAST DATA -RECORD 
END OF TAPE 

HEADER V— * 

CHANGE TO RECORD MODE 1 ONE 
PRESS PLAY TONE 




E443 FO DO EF 
E446 OP FO 27 
-E449 1-.Q_AAJEF 


E44C AC 41 EF 
E 4 4 E 00 



*“~CASETV 

OP 



1, CL0SLC--1 



JMP 
. BYTE 


I NIT 
0 


ROM FILLER BYTE 


- — — ... ■ . . 


*- UiiU! IN MUNI I P FDR CASSET IE BOOT 


E9 EF 


LA^JX /|C SB EE 


*«RBLOKV 
UMt' RBLQK 

*=CSOP I V 
vJML OEINP 










*• CASORG 


EP4J A 9 CC 
El- 4 3 OD EE 02 


EF46 A9 05 
EF4S OD EF 02 
SI ~ 4 1 3 60 


i 1N.I.1 ROUTINE 

I 

INI I I DA #$CC 

Si A CBAUDL 

l DA #$05 

ST A CBAUDH 

.S P ECIAL R1 S . - 


SET C ASSET BAUD RATE TO 600 
I ! I A. I l i ALL FOLKS 


C ASSET HANDIER 3/12 <DK1:CASCV> 


FP4C A5 
JEJ 4F. B5_ 


EF50 AS 
PI 52 29 

EF56 f-0 
Eh 58 C9 
-FLEA. PQ . 


i ODEN FUNCTION - WITH NO TIMING ADJUST 

I 

ICAX2Z GFT AX2 

FTYPE GAVE IT FOR FUTURE REF FUPNCt 


OH NC 


I DA 
S1A 


FF5C AO 
EF5D A9 
Ft 5F_J3H 
EF62 85 
EF64 A9 
El - A A 


C UM NO 


SI H 


Jia 


E'F* 69 30 
EF6B A9 

efad en 


l DA 
AND 
CMP 
BEG 
CMP 
H hrt 

RTS 
I DA 
SI A 
STA 
I DA 
JSJF 


ICAX1Z 

#$0C IN AND OUT BITS 

#$04 

OPINP 

#$08 SEE IF OPEN FOR OUTPUT 

□POUT 


#0 

WNODE 

FEOF 

#T0NE2 

BEEP 


i! ALREADY OPEN/ RETURN I PAVING STATUS= <§ 


EF70 AO 
FF72 A2 
JFE. /4 A ? 




_ 


EF76 8D 
EF79 20 
-EF7-C. AD 


Ef 7F DO 
EPS 1 A9 


2A 02 
5C E4 
2AJ22_ 
FB 
80 


DM J 
L DA 
SI A 
l DY 
L DX 
_LDA_ 


SIT READ MODP 
NO POP YET 
TONE POR PRESS PI AY 
GO BEEP 


OPNRTN 
#MOTRGO 
PACTL TURN MOTOR ON 
#$40 5-31-79 

#2 

M2 _ 


IF ERROR DURING XI- PP 


9 SEC READ l EADER 


SI A 
JSR 
A DA 
BNP 
I DA 


CDTMF3 


-FE03 .05 3D 


SETVBV 

CDTMF3 

WAITTM 

#$80 




SET UP VXLANK TIMER 


NEXT 


EPS5 8D SA 02 


EF88 4C D3 




-SJ A BP . TR . — 

STA BLIM 


WAIT FOR MOTOR TO COMP UP TO SPEED 
BYTE=NO BYTES IN BUFFER 




JMP OP OK 




* — ~ • — • • » 


i OPEN FOR OUTPUT 


OPEN OK 






EF8F 


?EAI' 
WRITE 


EF 94 60 


__ 


P I AG 






RTS 


AMD EXIT. 


STA 




I DA 








EIF9F 30 EE 
e:fai A9 CC 
J&A2A3D 04 D2 


JBR 


TURN ON RfcCOHI) NODE 

'M 





EFA6 A9 05 


OPNRTN 
#$CC 
AUDFa 


ERAS 81> 06 D; 


Ef Ah A9 60 





EF AD OD 00 03 
EFBO 20 68 E4 
EJ h 3 A9 A14 . 


#$05 

AUDF4 

#$60 

DDEVIC 

SENDEV 


IF ERROR DURING BEEP 
SET BAUD RATE 

WHICH SEEMS. IQ BE NESSFCARY 


POR SOME OBSCURE Rl 















FFB 5 OD 02 D 3 
EFI98 A 9 03 
Lh BA A2 04 

EFBC AO 80 
EFBE 20 5C E4 
EF.C1 A9 EE. 


T PI I POKEY TO WRITE MARKS 
#MQIRGO WRi lE^BCSEC. BLANK TAPE 
PACTL 


EFC3 8D 2A 02 


#3 

#4 

#$80 

SETVBV 

#$EE__ 


5/00/79 20 SEC I PA.DPR 




CDTMF3 




C ASSET HANDI ER 3/12 (DKlrCASCV) 
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I 







0ASSE7 HANOI ER 3/12 (DK1. CABCV) 



EF CA 
IFCD 




— 


AD 2A 02 
DO F7 
-A2 .00 


l DA 
BNF 



-«wr 


BRKKEY 
PBRK 
CDTMF3 
WDLR 


Ef Di Bb 3D 











AO 01 


CK.K t I)Y 











GASSET HANDIER 3/12 (DK1: CASCV) 




r 


£ 

w 


3 

CC 




■ ■■ 






# 


flt'T BYTE 


EED6 A5 3F 
fcirDi 
H l> A A6 3D 
IF DC EC BA 02 
LFDE 10 08 


GBY3 E 


EFtl BL> 00 04 
EFE4 E6 3D 

EFE6 AQ 01 

EFE8 60 
FI 19 A9 02 
El- LB 20 90 FO 
EFEE 9B 
EFEF 30 F7 
EFF1 A.9. OO 


I DA 
BUI 
L DX 
CPX 
BEQ 
l DA 
INC 
LDY 


QliX 
RBI OK 


EFF3 85 3D 
EFF5 A2 80 
JEET'Z AD F_E 03. 




>.*■ — 


I DA 
USR 
I YA 
DM I 
LJ1A 
in A 


EE FA C9 FE 
EFFC FO OD 
EFEE -C9-3LA, 


£MR 


FOOD DO 03 
F002 AE 7F 04 
£OOE„BE_QA 02 


NLR 


BNE 
i DX 
S3 X 


F 008 4C D6 EF 
FOOB C6 3F 
LOOP AQ. .88 


JNE 


A3 F OF 
JL31 XiE 


1 DY 


Ft OF IF A3 EOF ALREADY 
ISEQF _ iEtlJURN EOF S3 A3 US 
BFTR BUFFER POINTER 
BLIM IF END OF BUFFER 
RBLOK READ ANOTHER BLOCK 
CASBUF+3# X OFT NEXT BYTE 
BPTR BUMP POINTER 
tfSUCCES OK STATUS 


# 'R 
SIOSB 

GBX 

#0 

BPTR 

#$80 


READ OPCODE 
SIO ON SYS BUE 


IF SIO ERRORS# RETURN 


Trrrrr: 



RESET POINTER 
DEFAULT # BYTES 


#EOT 

ATEOF 

mn 


NLR 

casbuf+iso 

BLIM 


IF HEADER# GO READ AGAIN 
II LAST DATA JiEO 




DATA RECORD# GET # BYTES 


FO OF 60 


RTS 


GBYTE GET NEXT BYTE 
FEOF SET FFOF 
MEQEERR ENDF1LE STATUS 


— — 




iSi— . 


. . .... . ■ « — < 
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BPTR DUMP POINTER 
#SUCCES OK STATUS 
H 1 27 If* BUFFER FULE 

*+3 





FOIE A9 FC 
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TrpTi 7 

0026 

m 

ICSPR 

034C 

ICSPRZ 

002C 

I GST A 

WvtW 

0343 

ICSTAZ 

UUf . O 

0023 

W 

3 FP 

D9AA 

INBUFF 

OOF 3 
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D302 
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D301 

c 
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c 

PTRIG7 

0283 
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"GET CHARACTER" CIO COMMAND CODE 

"PUT CHARACTER" CIO COMMAND CODE 

INITIAL MEM LQ LOW BYTE 

INITIAL MEM LO HIGH BYTE 

ASCII CARRIAGE RETURN 

GOOD STATUS CODE 

WRITE COMMAND 

READ COMMAND 

STATUS COMMAND 

SCREEN EDITOR IOCB INDEX 

CLEAR SCREEN CODE 

KEYBOARD CODE FOR 'CONTROL €' 

CASSETTE END OF FILE CODE 

LONG IRG TYPE CODE 


CASBUF+3/256 

-256*BUFFH+CASBUE+3 


BUFFER POINTER 


f-474 


/B pi 

40 “ 


25 FI 


1-477 4C — 


9000 20 OC 90 
9003 4C 25 FI 
9006 -2 0 Q€ - 9 0 - 


9009 4C IB FI 


' ..^r.OL.L. 0 1 . 1 T h l/ ~ > r " ru 1 A * rt ~ r? A 0 ■■■ nnr: ft mnrrr — r?n a r i 


SWAR M S V 

JMP *9006 


*=COLDSV 

JMP *9000 

*•“*9000 


JSR 

JMP 

_ !£2£L 

v/bK 

JMP 


*900C 

PWRUP 

-*9O0C 

RESET 


* = MONORG 


WARM START VECTOR 


COLD START VECTOR <9000 FOR RAM VECTOR WRITING) 


(TO HANDLE RAM VECTOR WRITING) 


HANDLER TABLE ENTRIES 




i 0E4 30 E4 
F 0E6 43 
4 0E7-40--EA- 


F0E9 45 
1-OEA 00 E4 
4-GEG53- 
r-OED 10 E4 


TBLE -N D -t-BYTE " RE- 

WORD PR INTV 
BYTE "C" 

- - - WORD CASETV 

. BYTE "E M 
. WORD EDITRV 

. DY T-E _ 

. WORD SCRENV 








Moor. Business Form,. I 


▼ w* ▼ * •• •» ' • w ▼ ■ « i me uc le v i j rn» i we a t 


. _ YVMLKD 

02114 

VVBLKI 

0222 

WA1UH 

- 

WARMS! 

0008 

WAR MS V 

14/4 

WDLR 

FJ-CA 

W» AK 

F087 

Wl AKJ 

FOBC 


f 01,0 

WMODE 

0207 

WRUNLY 

0083 

WS I OSD 

F0D2 


— **»**-“ M i wrM fci iUm 

HON I TOR ***** MON I TP SRr **««.« n /o /-»<-» 

1 IUN1 1 r - awc ***** 3/9/79 ***** 4:00:00 P M 



• t 


I OEF 4B 
PDFG 20 P-4 


GGQ& 




BYTE "K " 
WORD KEYS DO 


-- T B LL EN — 


4-BENT-TBLENT-l HANDLER TABLE -LENGTH 


***** PRINT MESSAGES ***** 




F0F2 7D 41 54 
E OF 5 — 4-4 — 52-4 9 
F0F8 20 43 4F 
l-OFB 4D 50 55 
4 ; -0FF— 54 4 5 -52 


IDENT .BYTE CLS, "ATARI COMPUTER - MEMO PAD " , CR 


FI 01 20 2D 20 
P 104 4D 45 4D 



# 

0 





DEVICE/FILENAME SPECIFICATIONS 

— 



0018 


OPNL 


-256*0PNH+0PNEDT 


SCREEN EDITOR OPEN POINTER 



i RESET BUTTON ROUTINE STARTS HERE 

r ** * ****»»*tt»»**-»»»»^»-**-fr*****»***-*»**»*-»*** » *»*********»*******»» 


F 1 IB 
- FHC 
FI IF 
F 121 
FI 20 


78 

AD 4-4 02 
DO 04 
A9 FF 
DO - 03 


RESET 


SEI 


DISABLE 

LBA 

COLDST 

WERE WE 

BNE 

PWRUP 

YES, GO 

LDA 

#*FF 


AfeiE 

PWRUP 1 

SET WARM 


rnrtrwwKic — 



**-* 1 ***-fr***************^.-*********************************** 

' POWER UP ROUTINES START HERE 

******************* 





-***- 


MONITOR ***** MONITP SRC ***** 3/9/79 ***** 4:00:00 P. M. 




Moor* Business Forms, Inc. tv 14I2T 


r% -rs -rr r* fr "TT -W ->c >c *W 


MONITOR ***** MONITP. SRC ***** 3/9/79 ***** 4:00:00 P M 


F125 78 
Fi26 A9 OO 
FI 28 85 08 
P 12A D8 
F12B A2 FF 
FI 2D 9A 
F12E 20 3F F2 
M31 20 81 -PB- 
F 134 A5 08 
F 136 DO 28 


FI 38 A9 00 
F13A AO 08 
FT 30 85 04 
F13E 85 05 
FI 40 91 04 
F 142 C8 
FI 43 CO 00 
FT 4 5 DO F9 
F 147 E6 05 
F149 A6 05 
P 14B E4 06 
FF4D-D0~E1~ 


-F T4F AO 72 E4 
FT 52 85 OA 
FI 54 AD 73 E4 
El 57-85- OB 


FI 59 A9 FF 
F15B 8D 44 02 
F 1 5E DO -13 


PWRUP SEI 
L DA 

PWRUP 1 STA 
CLD 



TXS 

JSR 

JSR 

[lda 

b NE 

ZERORM LDA 
LDY 
STA 
STA 

CLRRAM STA 

INY 

CPY 

BNE 

INC 

LDX 

CPX 

BNE- 


#0 

WARMST 

#$FF 

SPECL 
H ARD I 
WARMST 
ZOSRAM 

#0 

#WARMST 
RAMLO 
RAMLO+1 
< RAMLO), Y 

#0 

CLRRAM 

RAMLO+i 

RAMLO+1 

TRAMSZ 

OLRRAM 


\ 


DISABLE IRQ INTERRUPTS 
CLEAR WARMSTART FLAG 

CLEAR DECIMAL FLAG. 

SET STACK POINTER 
CARTRIDGE SPECIAL CASE? 

DO HARDWARE INITIALIZATION 
IS IT WARMSTART? 

YES, ONLY ZERO OS RAM 


INITIALIZE RAM POINTER 
CLEAR MEMORY LOC. 

AT END OF PAGE? 

YES, I NCR PAGE POINTER 

AT END OF MEM? 

NG. 


; INITIALIZE 
LDA 
STA 
LDA 

_ , „ _ OTA 

b iti 

LDA 

STA 

BNE 


DOSVEC T O POI NT TO SIGNON (BLACKBOARD) 
BLKBDV+i 
DOSVEC 
BLKBDV+2 
DOSVEC+1 


USE BLACKBOARD VECTOR 
FOR DOSVEC 


LD f\ ^N)6si 

u # sx&s) 0D/3 r C, 


#$FF 

COLDST 

ESTSCM 


SET TO SHOW IN MIDDLE OF COLDST ART 
GO AROUND ZOSRAM 


- F168-A2-O0 
FI 62 8A 
FI 63 9D 00 02 
FI 66 9D 00 03 
FI 69 CA 
F16A DO F7 
F16C- A2 1-0 


F16E 95 00 
FI 70 E8 
Fl-71 10 FB 


; CLEAR OS RAM (FOR WARMSTART) 

-20SRAM--EBX #0 ~~ 

TXA 


Z0SRM2 


Z0SRM3 


STA 
STA 
DEX 
BNE 
LDX 
STA 
I NX 
BPL 


$200, X 
$300, X 

Z0SRM2 
#INTZBS 
0, X 

Z0SRM3 


CLEAR PAGES 2 AND 3 


CLEAR ZERO PAGE LOCATIONS INTZBS-7F 


?- 02 - 
F 175 85 52 
F 177 A9 27 
FI 79 85 53 


; ESTABLISH SCREEN MARGINS 

ESTSOM- -EDA # LEDGE — 

STA LMARGN 

! DA #REDGE 

-TA R MAR GN 


F 1 7B A2 25 
! 17D BD 80 E4 
F 1-80 9D OO 02 
F 183 CA 
F 184 10 F7 
F 186 20 -94 F2 
T 189 58 


-- Ere VECTOR TABLE FROM ROM TO RAM 

ur SYS 
MOVVEC 


LDX 

#$25 

LDA 

VCTABL, X 

STA 

I NT ABSr-X 

DEX 


BPL 

MOVVEC 

USR- 

OSRAM 

CLI 



ROM TABLE 
TO RAM 


eo-o.s. RAM SETUP 
ENABLE IRQ INTERRUPTS 


r. 


ckc n 7 




C 




NONITF SRC •••*• 3/9/79 •»••• 4 OO OO P N 




PtWA 

A2 



I 18C 

BD 

E3 

FO 

FT8F 

9D 

IA 

03 

M9P 

€A 



f 193 

10 

F7 



LINK HANDLERS 
i.0* ~ 

NX TENT LDA TBLENT . X 

8TA HATABS. X 

BPL NX TENT 










READ HANDLER TABLE ENTRY 
PUT IN TABLE 

DONE WITH ALL ENTRIES? 




IN'ENhOQAlE CARTRIDGE ADDR. SPACE TO SEE WHICH CARTRIDGES THERE ARE 


F 197 86 07 
H99 86 06 
H9B AE €4 OS 
H9E EO 90 
FI AO BO OA 

F 1 A5 DO 05 
F1A7 E6 07 
HA9-SO 3 C F2 


FI AC 
-h±A P 


02 


ENDBCK 


F1B1 
F 1B3 
FHH96 
F1B8 
FIB A 


BO OA 
AE FC 
OO 03 
E6 06 
20 39 


LDX 

OF* 


BF 


F2 


TSTDAT 
TRAMSZ 
RAMS I Z 
#490 

ENDBCK 
CART -42000 
ENDBCK 
TSTDAT 
CBINI 


RAMSIZ 

#4BO 

ENDACK 

CART 

ENDACK 

TRAMSZ 

CAINI 


CLEAR M B“ CART. FLAG 
CLEAR “A" CART. FLAG 

RAM IN M B M CART. SLOT? 

-N8v — 

CART. PLUGGED INTO "B" SLOT? 
YES# SET "B" CART. FLAG 
INITIALIZE CARTRIDGE 11 B" 






NO# 

CART. PLUGGED INTO "A" SLOT? 
YES# SET "A" CART. FLAG 
INITIALIZE CARTRIDGE "A" 






OPEN SCREEN EDITOR 



ENDACK 




I- 1C 4 













03 


iO 03 



J SR 


F1DQ 4 C 
F 1 DB E8 
-b lOC -BO-FO 


FI 


BPL 
JMP 

SCRNOK I NX 
BNE 


1CBAH, X 
#$C 

IGAXT r X 
CIOV 

SCRNOK 

PWRUP 


SET BUFFER POINTER TO OPEN SCREEN EDITOR 
SET UP OPEN FOR INPUT/ OUTPUT 




GO TO CIO 

BP IF NO ERROR 
RETRY PWRUP IF ERROR (SHOULD NEVER HAPPEN!) 
SCREEN OK, SO WAIT FOR VBLANK TO 














erv ot* r ^ 


JSR 


CSfiOOT 


CHECK* BOOT » AND 1NIT 


MONITOR ***** MON I TP. SRC ***** 3/9/>9 ***** 






t 


4: 00: 00 P. M. 


P FE4—A5— 06 
HE6 05 07 
HE8 FO 12 
-M-E* AS 06 
FI EC FO 03 
FI EE AD FD BF 
P FPT A6 07 
F 1F3 FO 03 
MF5 OD FD 9F 
PLFS 29 Ol — 
FIFA FO 03 


i CHECK TO SEE IF EITHER CARTR 


F1FC 20 CF F2 


F IFF A9 00 
F 20 1 8D 44 02 

— F50 4 A 5 0 6 

F206 FO OA 


N0A1- 


NOBF 


NOCART 

i 

"T GO TO ONE 
NOBOOT LDA 
STA 
~ b OA 


LDA 

TRAMSZ 

ORA 

TSTDAT 

BEQ 

NOCART 

LDA 

TRAMS* 

BEQ 

N0A1 

LDA 

CARTFG 

-LD*- 

TSTDAT 

BEQ 

NOB 1 

ORA 

AND 

CARTFG- 

#1 

BEQ 

NOBOOT 

SK BOOT 

— — — : — — _ 

JSR 

BOOT 


OF THE CAR TR I DOES 
#0 

COLDST 

TD AMO 7 - 

i rCHrio £ 


F 208 AD FD BF 
-F 20B 29 -04 


F20D FO 03 
F20F 6C FA BF 

F 212 A 5 07 

F214 FO OA 
F216 AD FD 9F 
F 5 1 9-29—04- 


BEQ 

LDA 

AND 


N0A2 

CARTFG 

-#4 


Ksrr A U 
TXtJTTiC 


F 21B FO DF 
F21 D 6C FA 9F 


BEQ 

JMP 

PDA 

BEQ 

LDA 

AND- 


NQA2. 


v JCAR TCS? ,) 
TSTDAT 
N0CAR2 

CARTFG--$2000 

- #4 *r 


BEQ 

JMP 


IDGE WANTS DISK BOOT 
CHECK BOTH CARTRIDGES 

NEITHER CARTRIDGE LIVES 

“-A 11 CART? 

NO 

GET CARTRIDGE MODE FLAG 
“fi" CART? 

NO 

ADD OTHER FLAG 

DOES EITHER CART WANT BOOT? 1 

NO 


CHECK, BOOT, AND INIT 

IF THEY SO DESIRE 

RESET TO SHOW DONE WITH CQLDSTART 
U A U CART? 

NO 

GET CARTRIDGE MODE FLAG 

DOES IT WANT TO RON? 

NO 

RUN "A” CARTRIDGE 

“T P 1 C AR T? — 

NO 

GET "B" MODE FLAG 

DOES -FT- -WANT TS RON? y 


NOCART 

(CARTCS- 


NO 

$2000) RUN "B" CARTRIDGE 


P520 -6€--©A-©e- 


i NO CARTRIDGES, OR NEITHER WANTS TO RUN, 

; SO GO TO D05VEC (DOS, CASSETTE, OR BLACKBOARD) 

NGCARg JMP FBQSVECP — — 


P533 A2-F2- 


F225 AO FO 
F 227 20 85 F3 






F22A 20 30 F2 
F22D 4C 2A F2 
4-530— AD- 0 5 E 4 


i PRINT SIGN-ON MESSAGE 

-SI GNGN- — bBX #T DENTE 

L.DY #1 DENTH 

JSR PUTL.IN 


GO PUT SIGN-ON MSG ON SCREEN 






BLACKBOARD- ROUTINE 

BLACKB JSR BLKB2 "JSR EGETCH" 

JMP BLACKB FOREVER 

BLKB 5 t. DA EOT TRV + 5 H T -OH- -B YTE 




1-233 48 
F234 AD 04 E4 
-P23? 40 


F238 60 


PHA 

LDA 

DUA 

I ( If"! 

RTS 


EDITRV+4 


LOW BYTE 

SIMULATES "JMP (EDITRV ) " 


i CARTRIDGE INITIALIZATION INDIRECT JUMPS 

F239 6C FE BF CAINI JMP (CARTAD) 

P53C 6€ 9F -C-BTWT — JMP- (CAR TAD- $50 00) 


MONITOR *-#•*■**; flONITP. SRC ***•«■■* 3/9/79 ***** 4:00:00 P. M. 

: i 


^ ' 










SUBROUTINES 



IF SPECIAL CARTRIDGE CASE, DON'T GO BACK — GO TO CART. 


4 - 23F AD FC -BF 
1-242 DO 12 
F244 EE FC BF 
F 347 AD FC BF 


F24A DO OA 
F24C AD FD BF 
F34F 29 &Q- 


etT — (w- - 

F251 FO 03 / 




f-253 6C FE BF 




BNE 

INC 

LDA 


BNE 

LDA 


- CART — CHECK FdR RAH OR CART 

ENSPEC GO IF NOTHING OR MAYB 


*RT 
CART 
ENSPEC 
CARTFG 
-#*80‘ — 


MAYBE RAM 


ENSPEC 

(CARTAD) 


NOW DO RAM CHECK 
IS IT ROM? 




NO 
YES, 

tylACU 

f tnOf> 

BIT SET? 

YES, GO RUN CARTRIDGE 


CHECK FOR AMOUNT OF RAM 








I 


1256 CE FC BF 
f 259 A9 00 
F25B 85 -05 


ENSPEC 


F25D A9 10 
F25F 85 06 
-F26 1 A O -OO 


I 263 B 1 05 
i 265 85 07 
F267 49 FF- 
F269 85 04 
I 26B 91 05 
F26&B1 05 


! 26F C5 04 
! 271 DO OD 
4- 37^ A&G7 
! 275 91 0!> 
F277 A5 06 
F27 9 -*8— 
f 27A 69 10 


ADC 


CART 

#0 

RAMLQ+1 
#$10 
TRAMSZ 
AG 


(RAMLO+1 ) , Y 
TSTDAT 
#$ FF 
RAMLO 

< RAMLQ+1 ), Y 

RAMLO 
ENDRAM 
TSTDAT 
(RAMLO+1 ), Y 
TRAMSZ 


#♦10 


RESTORE RAM IF NEEDED 




SET RAM POINTER TO 4K. 

READ RAM LOCATION 
SAVE DATA 
INVERT IT - 
SAVE INVERTED DATA 
WRITE INVERTED DATA. 

READ RAM AGAIN 

IS IT THE INVERTED DATA? 

YES, 

RESTORE ORIGINAL RAM DATA 










) TOR ***** MON I TP SRC ***** 3/9/79 


4: 00: 00 P M 


F27C 85 06 
F27E BO 


STA 




BY 4K 





Moor# Builnesi Form*. Inc ,» Km 


' 


r 



* 277 A5 06 LDA TRAMSZ 

hrrt /9 18 

F-27A 69 10 ADC #$10 


i\(»NnilR ***** MONITP. SRC ***** 3/9/79 ***** 4:00:00 P. M. 


P27C 85 06 
P27E DO E3 
P280 60 


STA 

TRAMSZ 

INCR. RAM POINTER BY 4K. 

BNE 

HOWMCH 

GO FIND HOW MUCH RAM. 

ENDRAM RTS 




i 


HARDWARE INITIALIZATION 


P2B1 A9 UO- 

HARD I 

LDA 

#0 

P283 AA 


TAX 


[284 9D 00 DO 

CLRCHP 

STA 

$D000j X 

P287 9DOO D4 


STA 

$D400, X 

[-28 A 9D 00 D2 


STA 

*D200, X 

F28D 9D 00 D3 


STA 

$D300, X 

r* c!Vy to 


INX 


[•291 DO Fl 


BNE 

CLRCHP 

F293 60 


RTS 



I 

# 

0. S. 

RAM SETUP 


[-294 C6 11 
P296 A5 06 

P290 8D E402 

F29B 8D E6 02 
F29E A9 00 

+- 2 A 0 - 0B-ES-O2- 

f-2A3 A9 00 
f 2A5 8D E7 02 

-4-2A0 A9 -07- 

I-2AA 8D E8 02 
[-2 AD 20 OC E4 

4-28 0 20 1C E 4 

F2B3 20 2C E4 
P2B6 20 3C E4 

L2B9 20 4-G-E4 

F2BC 20 6E E4 
P2BF 20 65 E4 

--P-2C2--2G -6B -E4 

F2C5 AD IF DO 
F2C8 29 01 

F2GA DO 02 — — 

F2CC E6 4A 
F2CE 60 


OSRAM DEC 
LDA 
ST* 
STA 
LDA 

-STA 

LDA 

STA 

LDA 

STA 

JSR 

JSR- 

JSR 

JSR 

JSR 



NOKEY 


RTS 


BRKKEY 
TRAMSZ 
RAMS 17 
MEMTOP+1 
#0 

MEMTOP 


#INIMLL 
MEMLO 
#INIMLH 
MEMLO+1 
EDITRV+$C 

qr n FK l Urirrt ;/? 

uVf r\ CJMV “ •rv 

KEYBDV+$C 

PRINTV+$C 

€ASETV+$€ 

CIOINV 

SIOINV 

I NT I NV 



“CONSOL 


#$1 




CKEY 


TURN OFF BREAK KEY FLAG 
READ RAM SIZE IN TEMP. REG. 

S A V E- IT IN RAM SIZE 

INIT. MEMTOP ADDR HI BYTE 

INI T. -MEMTOP ADDR L0 BYTE 


INITIALIZE MEMLO ADDR VECTOR 
EDITOR INIT. 

SCR EE N INIT. 

KEYBOARD INIT. 

PRINTER HANDLER INIT 
CASSETTE HANDLER INIT 
CIO INIT. 

SIO INIT. 

INTERRUPT HANDLER I N IT . 



J DO BOOT OF DISK 

I-2CF A5 08 BOOT LDA WARMST 

I-2D1 FO OA BEQ NOWARM WARM START? 

T2D3 A 5- - 0 9 — ~bDA —BOOT? YES, — 

; 2D5 29 01 AND #1 

! - 2D 7 FO 03 BEQ NOINIT VALID BOOT? 

+* 2D 9— 20 iMSFS JSR- BIN! YES, RE- INIT. DOS SOFTWARE 

! 2DC 60 1 I NOINIT RTS 

! 2DD A9 11 I NOWARM LDA #1 

P2DF ED Oj %B - -STA- DUN IT ASSIGN DISK DRIVE NO. 

! 2E2 A9 Stt LDA #STATC 


MON1 TIM #***> 


f 


3/9/79 ***** A oo OO P M. 


I 2E4 

Fas / 

I 2EA 10 
I 2EC 60 


f - fJ 

20 #»3#4 


OTA 


Vm/ 


B 


uuuriNU 

DOBOOT 


SET UP STATUS COMMAND 
GO DO DISK STATUS 
IS STATUS FROM SIO GOOD? 

NO, GO BACK WITH BAD BOOT STATUS 


F2ED A9 00 
1-2EF 8D OB 03 
-4-2F2-A9-CH 
F2F4 8D OA 03 
F2F7 A9 00 
F2F9 80 04 03 


DOBOOT i 

STA 

LP A- 

STA 

LDA 


I-2FC A9 04 
f 2FE 8D 05 03 
4-301-20—90 F-3 


F 304 10 08 
F306 20 81 

F3G9 ** -4B 
F30B FO EO 
!*30D 60 

03 


F3 


f-310 BD 00 04 
F31 3 9D 40 02 
-F316 €A 


LDA 

STA 

SEG-T4- OSR 
BPL 

BADDSK JSR 
LDA 
BEQ 
RTS 

ALLSEC -bOX 

RDBYTE LDA 
STA 

:v_ 


#0 

DAUX2 

#1 

DAUX1 

#BUFFL 

OBUFLO 

#BUFFH 

DBUFHI 

©ETSEC 

ALLSEC 

DSKRDE 

CASSBT 

DOBOOT 


SET SECTOR # TO 1 . 


SET UP BUFFER ADDR 
GET SECTOR 
STATUS O. K. ? 

NO, GO PRINT DISK READ ERROR 


CASSETTE BOOT? 
YES, QUIT 


#3 


CASBUF+3, X 
DFLAGS, X 


T U.O > VtSJ 1 I i 

Move. H to ; z> fl f\CrS } t> 85 ect £ Focmh d J 


READ A BUFFER BYTE 
STORE IT 


DEX 


f 317 10 F7 
F319 AD 42 02 
F31C 05-04 


F31E AD 43 02 
F321 85 05 


RDBYTE 

BOOTAD 

RAMLG 

BOOTAD+1 

RAMLQ+1 


DONE WITH 4 BYTE TRANSFER ? 
YES, 


PUT BOOT ADDR INTO Z. PAGE RAM 




— . — - 

F326 85 OC 
F328 AD 05 04 
-8 5 OO- 


' STA 


GASBOF+7 


i 


DOS INI 
CASBUF+8 \ 
DOS IN I + ' 


ESTABLISH DOS I NIT ADDRESS 


£ * 




#$7F 

CASBUF+3, Y 


YES, SET BYTE COUNT 


. . 






I 


i-338 A5 


F33A 69 


LDA 

ADC 


RAMLO 

#$80 


► " 11,1 . -T 7 — 

, • 33E AS 05 
F340 69 00 
F342 85 05 


1-344 CE 41 02 
! 347 FO 11 
F349 £E ©A -03- 


LDA 

ADC 

STA 

DEC 

BEQ 

-FNC 




RAMLO+1 

#0 

RAMLO+1 




INCR 


I 34C 20 9 D F3 
I-34F 10 DC 
t-351 20 91 F3 
F354 A5 4B 
I 356 DO AE 
F 3 5Q FO 


SECTX 


F35A A5 4B 
I 35C FO 03 
F 35E SO 90 F3- 

! 361 20 6C F3 
I 364 BO AO 
-F366 SO 7€ 


ENBOOT 


XBOOT 


F 369 E6 09 




DBSECT 

ENBOOT 

DAUX1 

GETSEC 

MVBUFF 

DSKRDE 

CASSBT 

BADDSK 

SE CT * 

CASSBT 

XBOOT 

GETSEC 

BLOAD 

BADDSK 

-DThti 

BOOT? 


DECR # OF SECTORS. 

MORE SECTORS 7 

GO GET SECTOR. 

STATUS 0. K. ? 

NO, GO PRINT DISK READ ERROR 




IF CASSETTE, 
IF DISK, TRY 


QUIT. 

SECTOR AGAIN. 


CASSETTE BOOT ? 

YES, GET EOF RECORD, BUT DON'T USE IT. ) 

GO EXECUTE BOOT LOADER 
IF BAD BOOT, DO IT OVER AGAIN 

—GO -H+TT -SOFTWARE 






SHOW BOOT SUCCESS 
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r 


F36B 

60 




RTS 


F36C 

18 



- 8LGAO 



F36D 

AD 

42 

02 


LDA 

BOOTAD 

F370 

69 

06 



ADC 

#6 / 

+-372 

85-04 



STA 

RAMLO V 5 

K-374 

AD 

43 

02 


LDA 

BOOTAD+1 ( 

F377 

69 

00 



ADC 

#0 V 

P 379 

85 

05 



STA 

RAMLO+1 

F37B 

6C 

04 

00 


JMP 

(RAMLO) ) 

P37E 

6C 

OC 

00 

DINI 

# 

i 

JMP 

(DOSINI > 





i 

DISPLAY 

DISK READ E 

F381 

A2 

OD 


$ 

DSKRDE 

LDX 

#DERRL 

f 383 

AO 

FI 



LDY 

#DERRH 




PUT START A DDR OF BOOTLOADER INTO RAM 


f-385 

1-386 

F308 


8A 

A2 00 
^4403 


I-38B 
F38C 
— F* 38F 
1-391 
F394 
F396 


98 

9D 45 03 
-A9 09- 
9D 42 03 
A9 FF 
9D 46 63- 


F 399 
f-39C 


20 56 E4 
60 


E 39B-A5 4B 


F39F FO 03 
F3A1 4C 7 A E4 

R3 A4-A9- 52 

F3A6 8D 02 03 
F3A9 A9 01 
E3AB &D 0 - 1-03 
F3AE 20 53 E4 
F3B 1 60 


PUTLIN 



PUT LINE ON SCREEN AT PRESENT CURSOR POSITION 

X-REG — LO BYTE, BEGIN ADDR OF LINE 
Y-REG — HI BYTE, BEGIN ADDR OF LINE 


#SEX 

ICBAL,-*- 


ICBAH, X 
4PUTTXT 
ICCOM, X 
#$FF 
ICBLL, X 
CIOV 


SET UP ADDR OF BEGIN OF LINE 
"PUT TEXT RECORD" COMMAND 


SET BUFFER LENGTH 
PUT LINE ON SCREEN 


GET SECTOR FROM DISK 0 


GETSEC 


DISKM 


LDA 

BEQ 

JMP 

EDA 

STA 

LDA 

STA 

JSR 

RTS 


CASSBT 

DISKM 

RBLOKV 

#READ 

DCOMND 

#1 

DUN IT 
DSKINV 


CASSETTE BOOT ? 

YES, GO TO READ BLOCK ROUTINE 

SET READ SECTOR COMMAND 

SET DRIVE NO. TO DRIVE O 
GET SECTOR 




DO CHECK FOR CASSETTE BOOT *.< IE SO, DO BOOT 


L3B2 A5 08 \ 
4-3D4 -F4 0m \ 
L3B6 A5 &? \ 


) 


CSBOOT LDA 

BEG 

LDA 


WARMST 

CSB0T2 

BOOT? 


WARMSTART? 

NO 

GET BOOT FLAG 



MONITOR ***** MON I TP SRC ***** 3 / 9/79 


***** 4 ; 00: 00 P. M 




K3B8 29 02 
P3BA FO 03 
P3BC 20 El F3 
f 3BF 60 

P3C0 A5 4A 
F3C2 FO 1C 
F3C4 A9 80 
P3C6 85 3E 
P3C8 E 6 4B 

P3CD 20 01 F3 
! 3D0 A9 00 
P3D2 8 & 4B 
I-3D4 85 4A 
h 3D6 06 09 
-+3D8 A5 -0€ 

F3DA 85 02 
F3DC A 5 OD 
F3BE 95 03 
P3E0 60 

P 3E 4 — 6£ 02—00 


P3E 4 


N0CSB2 

CSB0T2 


AND 

BEO 

JSR 

RTS 


#2 

WAS 

NOCSB 2 

NO 

CINI 

YES 

CKEY 


NOCSBT 

"C" 

V Q\ 

YES 

-TYPE 

SET 


CASSBT 
CSOPIV 
SECT 1 
#0 

CASSBT 

CKEY 

BOOT? 

nnc tki t 
L/wo 1 tN x 

CASINI 
DOS IN I *+-1 
CAS IN I + 3- 


KEY FLAG SET ? 

Sftsp-VRG 1 /cor*T7CMU©osl 

SET CASSETTE BOOT FLAG 4 

OPEN CASSETTE FOR INPUT 

DO BOOT & INI T. 

RESET CASSETTE BOOT FLAG 
CLEAR KEY FLAG 

SHIFT BOOT FLAG (NQW=2 IF SUCCESS) 


MOVE I NIT ADDRESS FOR CASSETTE 


NOCSBT 

j 

-£im 


j 1 > >3 fW Cmsot ^ cl tosrr uor C 

... Jzg& w y L „ U tifrW . c -W. O-ftll 1+ \'- -j J 

' ' eA li dtc«Vr.L-_/<lv 


UMP 


< CASINI ) 


I NTT CASSETTE 


1 0 o{ 


SPARE BYTE OR MODULE TOO LONG FLAG 


C RN TP C - 




* S *14 

KBDORG-CRNTPC 


0044 OO 




MONT TP TOO LONG 


. END 
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f ABBCftf* 

Al I SEC 
A I AC HR 


AUJX 1 
BAPDSK 
HFFNt O 
BL KB2 
BOOT? 

— HR KAB T 
fUJPFH 
BUiRLO 
--OABTAfF 


C ASF TV 
CASSBT 

■Bfr AW H 


COI VIC 
CDTMF4 
MFPMV3- 


SYMBOL 

030E 

F30E 

02FB 

0203 

D200 

F306 

0034 

F230 

0009 

0080 

0004 

0032 

BFFE 

E440 

004B 

02EF 

023A 

022C 

-0210— 


CHJ 
COB AS 

j. 


02F2 

02F4 


TABLE 

ADRESS 

ANTIC 

ATAN 

AUDC3 

AUDF2 

BADIOC 

BITMSK 

BLKBDV 

BOOTAD 

BRKKEY 

BUFFL 

BUFSTR 

CARTOS 

CASFLG 

CASSET 

CBAUBL 

CDTMAi 

CDTMF5 

CBTMV4 

CHACT 

CHBASE 


G H KGO N- 0031 


OOINV 

CKFY 

-4H-S 

COI D5T 
COI OR 1 
CHLH F O 
COI PMO 
COI RSH 
-OR 


CRSINH 

CSOPIV 

■BAUX4 — 


E46E 

004A 

0070 

0244 

02C5 

OOT6 

D01 2 

004F 

O09B 

02F0 

E47D 

030A 


OHRGRG 
CIOORG 
CLOSE 
-GOLAO 
COLDSV 
C0L0R2 
CGbPFl 
C0LPM1 
CONSOL 
CRETR Y 
CRSROR 
CSTAT 
BAUX-2 


0064 
D400 
BE43 
0205 
D202 
0086 
006E 
E47 1 
0242 
BOM 
0000 
006C 
BFFA 
030F 
0043 
02EE 
0226 
022E 
02LE 
02F3 
D409 
EOOO 
E4A6 
OOOC 
0072 
E477 
02C6 


DO 13 
D01F 
0036 
008D 
0288 
030B 


AFP 

APPEND 

ATRACT 

A GDC 4 

AUDF3 

BADMOD 

BLACKB 

BLOAD 

BOTSCR 

BUFADR 

BUFRFL 

CAINI 

CARTFG 

CASINI 

CAUX1 

C B INI 

CDTMA2 

CDTMV1 

GBTMV5 

CHACTL 

CHKERR 

C INI 

CIOV 

CLRCHP 

CGLBK 

COLINC 

C0L0R3 

GGLPF2 

C0LPM2 

COS 

CRITIC 
CSBOOT 
CTI A 
DBSECT 


DBUFLO 
DOGMND 
-PT4 FT E-- 


DFRRH 
DJGRT 
-FFSK — 


0304 
0302 
0024 
OOF 1 
OOF 1 
0044 


})1 ISTH 
DHACK 

* f * Y IL Pi " 

DSKINV 
DSKUT L 
4H3-HFG 


D403 
008B 
0011 
E453 
001 A 
0306 


DBYTHI 
DDEVIC 
- OELT-AC 
DERRL 
D INDEX 
IH-SKIV 
DLISTL 
DOB OCT 
DRETRY 
DSKORG 
DSPFLG 
BGNIT 


0309 

0300 

0077 

OOOD 

0057 

-E450- 


DI'TRV 

ENDBCK 




SION 


FADD 
FI OF 


FI DOP 
FI PTR 
f - NCNDT 
FPSCR 
I R1 

F “ Fit r\lA 

ISfOP 


E400 
FI AC 
0088 
OOEF 
DA66 

DD8D 

OOFC 

0092 

05E6 

OOEO 

0O8C 

DDAB 


EEXP 

ENBPT 

turtTtrt 

ESTSCM 
FASC 
HF FLOAT 
FLDOR 
FMOVE 
FOR HAT- 
FPSCR 1 
FR2 
PR* 
FSTOR 


D402 
F2ED 
-0037 
EDEA 
02FE 
0301— 
OOED 
0074 
0088 
F 1 73 
D8E6 
02FB 
DD89 
DDB6 
0022 
05EC 
00E6 
OOEC 
DDA 7 


DBYTLO 

DEGFLG 

DELTAR 

DERROR 

DINI 

BISKM 

DMACTL. 

DOSINI 

DRKHSK 

DSKRDE 

DSTAT 

BUNUSE 

ENBOOT 

ENDRAM 

ERRFLO 

EXP 

FCHRFL 

F FLFL.O 

FLD1P 

FMSZPG 

FPI 

FPTR2 

FRE 

FSCR 

FSUB 


D800 
0001 
004D 
D207 
D204 
0091 
F22A 
F36C 
02BF 
0015 
0038 
F239 
BFFD 
0002 
023C 
F23C 
0228 
0218 
0220 
D401 
008F 
F3ET 
E456 
F284 
D01 A 
007A 
02C7 
DO 18 
D01 4 
BD73 

0042 
F3B2 
DOOO 
0241 
0308 
OOFB 
0076 
0090 
F37E 
F3A4 
D400 
OOOC 
004E 
F381 
004C 
0307 
F35A 
F280 
023F 
DDCO 
OOFO 
02 B 7 
DD9C 

0043 
B9D2 
00 FE 
OODA 
B5E6 
DA60 


ALLPOT 

APPMHI 

AUDC1 

AUDCTL 

AUDF4 

BFENHI 

BLTM 

BOOT 

BPTR 

BUFCNT 

BUFRHI 

CART 

CASBUF 

CASORG 

CAUX2 

CCOMND 

CDTMF3 

CDTMV2 

OH 

CHAR 

CHKSNT 

CIGCHR 

CIX 

CLRRAM 

CGLCRS 

COLDRO 

C0LGR4 

CGL.PF3 

C0LPM3 

COUNTR 

CRNTPC 

CSB0T2 

CTRLC 

DBUFHI 

DCB 

DEGGN 

DERR 

DFLAGS 

DIRECT 

DISPLY 

DMASK 

DOSVEC 

DSKFMS 

DSKTIM 

DSTATS 

DVSTAT 

ENDACK 

ENSPEC 

ESC FL O 

EXP 10 

FDI V 

FI Lt. IN 

FLD1R 

FMUL 

FPREC 

FRO 

FREQ 

FSC-R1 

FTYPE 


D208 

OOOE 

D201 

D208 

D206 

0035 

028A 

F2CF 

003D 

006B 

0033 

BFFC 

03FD 

EF41 

023D 

023B 

022A 

021 A 

02FC 

02FA 

003B 

002F 


00F2 
F 1 40 

AACC 

Uv/jt/ 

02C4 

02CS 

DO 19 
DO! 5 
007E 
F3E4 
F3C0 
0092 
0305 
0300 
0006 
FIOD- 
0240 
0002 
0053 
02A0 
OOOA 
0018 
0246 
0303 
02EA 
F1I3D 
F256 
02A2 
DDCC 
DB28 
0012 
DD98 
DADB 
0006 
00D4 
0040 
05EC 
003E 



NUNIKM 


«ON I TP SRC 


3 / 9/79 


4:00 00 P h 


Ct T CAM 

0007 

OCTCMR 

0007 

CETREC 

0005 

GET SEC 

F39D 

k- -Of HASH 

02E0 

GOOD 

OOOl 

GPRIOR 

0?6F 

ORACTL 

DOID 

CNAJ-M 

DO 1 1 

ORAFPO 

DOOD 

CRAFP1 

DOOE 


DOOF 

GNAFP3 

D010 

HARDI 

F2B1 

HATABS 

03! A 

HITCLR 

DO IE 

HNfiH 

0051 

H0LD2 

029F 

HOLD3 

0290 

HOLi>4 

O20C 

14(1 l>5 

02BD 

HOLDCH 

007C 

HOWMCH 

F263 

HPOSHO 

D004 

MFUSM1 

D005 

HP0SH2 

D006 

HPOSM3 

D007 

HPOSPO 

DOOO 

HPKNPE 

DOO 1 

HPOSP2 

0002 

HPOSP3 


HSCRCH. 

0404 

) CAX1 

034A 

ICAX1Z 

002 A 

ICAX2 

034B 

ICAX2Z 

002B 

I ( HAH 

0345 

ICBAHZ 

0025 

ICBAL 

0344 

ICBALZ 

0024 

kiibkM — 

49 

1CBLHZ 

0029 


0346 


0020 

ice cm 

0342 

ICCOHT 

0017 

I CC0M7 

0022 

ICDNO 

0341 

)( J»NCIZ 

0021 


0340 

I CHI DZ 

0020 

I C I DNO 

002E 

~ PGPTFI — 

0347 

TGPTHZ 


ICPTL - 

0346 

IOPTLZ 

0026 

IC3PR 

034C 

ICSPRZ 

002C 

ICSTA 

0343 

ICSTAZ 

0023 

) DC N'l 

F0F2 

IDENTH 

OOFO 

IDENTL 

00F2 

IFP 

D9AA 

INBUM 

OOF 3 

INIMLH 

0007 

1NIMLL 

OOOO 

INSCLR 

0020 

INHDAT 

007D 

INTABS 

0200 

INTEMP 

022D 

INTINV 

E46B 

INKING 

E6D5 

INTZBS 

0010 

INVFLG 

02B6 

IOCB 

0340 

ixiTUAQ 

0020 

H3CBSZ 

0010 

IOCFRE 

OOFF 

IRQEN 

D20E 

I ROST 

D20E 

KBCODE 

D209 

KBD 

004B 

KBDORG 

F3E4 

KEYHDV 

E420 

KEYDEL 

02F1 

LBFEND 

05FF 

LBPR1 

057E 

1 DLltl'l 

nRTC 

i ni ire 

flKnn 

LEDGE 

0002 

LINBUF 

0247 



t.uvrr 

vOwv 

1 IN/BS 

0000 

LIRG 

0000 

LMARGN 

0052 

LOCKFL 

0023 

l OG 

DECD 

LOG 10 

DED1 

LOGCOL 

0063 

LOGMAP 

02B2 

— t H NH 

0234 

-LPENV- 

0235 

MOPF 

DOOO 

MOPL 

0008 

MiPF 

D001 

M1PL 

D009 

M2PF 

D002 

M2PL 

DOOA 


D003 

M3PL 

DOOB 

MAXDEV 

0021 

MAXIOC 

0080 


HONOR G 
MVNXB 


N0A2 

NOCART 

NUI N TT - 


F0E3 

F32F 

D40E 

F212 

F1FC 

F2DC 


MONSPR 
MXDMOD 
NMIRES 
NOB 1 
NOCKSM 
■NOKE-Y- 


0014 

0010 

D40F 

F1F8 

003C 

-F2CE- 


MOWEC 
NEWCOL v 
NMIST 
NOBOOT 
N0CSB2 


F17D 

0061 

D40F 

F1FF 

F3BF 


MVBUFF 

NEWROW 

N0A1 


nocar; 


Ntn OPN 
NX TE NT 


OPN IN 
0 PN1 HP 
POP P 


0085 
F18C 
005 A 
0004 
0066 


NOW ARM 
OLDADR 


F2DD 

005E 


NS I ON 
OLDCHR 


0004 


OPNINO 
OPSYS 
POPE- - 


PPPF 

PACTL 

-PADPF3 


D006 

D302 

0273 


i 


oooc 

F17B 

DOOC 


OPNEDT 

OPNL 

OSRAM 


PIPF 


C 


DOOE P3PF 

.< 




00EE 
005D 
FI 18 
0018 
F294 
0005 


NOCSBT 

NOTE 

NVALID 

OLDCOL 


0270 




0274 




PADDL1 

PADDL5 


0271 




OPNOT 
OVRRUN 
PI 




PADDI 7 0277 

PCOt RO 02C0 


P BCTL 


D303 


0275 
001 D 


PC0LR1 02C1 


PBPNT 
PC0L.R2 02C2 


444- 


PI YF VI 


moo. 


-PENV 


0400 




P44H- 




! ) 


m o 


DD40 PMBASE 0407 
0010 PORTA 0300 
0201 P-0T2 0202 
0205 


PIA 


POINT 


0300 


P3PL 
PAD0L2 
PADDL6 
PBUFSZ 
PC0LR3 
PLYARG 








F32D 
0060 
F IF T 
F220 
F3E0 
0026 
0084 
005B 

Sr - 

0008 
008E 
0000 












DOOF 

0272 

0276 

001E 

02C3 

05E0 




PORTB 

P0T3 


0025 

0301 

D203 




POKEY 

POTO 

P0T4 


PR ! N't R 
P R N K RG- 


0050 


EE 78 


P0T6 
PR INTV 
PRVGPN 


’ ^ w • « \ r Wf * 

imam 027C PTRIGi 

PTRJG4 0280 P TRIGS 


D206 

E430 

0081 


P0T7 

PRIOR 

PTEHP 


0207 
DO IB 
OOTF 


POTGO 

PRNBUF 

PTIMOT 


0200 
0200 
0204 
D20B 
03C0 
OOFO 




— 


— 







4H4TC-AR 

PU'TTXT 

RADON 


0009 

0000 


PWRUP 

RAMLO 


0270 
0281 
OGGB 
F 125 
0004 


PTRIG2 
PTRIG6 
PUTLIN 
PWRUP 1 
RAMSIZ 


027E 

0282 

F385 


FI 28 
02E4 


PTRIG3 

PTRIG7 

PUTREC 

RADFLG 

RAMTOP 


027F 

0283 

0009 

OOFB 

006A 



L* 
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R! ! if- T 

VJ.J 4iU 5 Jvi/’ 

ft t tv# 7 N\ • 

SAVMSC 

v'CRMi:M 
BRNO Ft 


FliB 

0079 

0058 

0093 

G22F 


S\\OH 
IV IF AMT 
-8- >01 NV 
SIZPPO 
SKC1 L 
- 3 P EGIL 
SSFl AO 
ST All IS 
strokr 


D20B 

006F 

E465 

D008 

D20F 

OOOE 

02FF 

OOOD 

827A 


STR 1 G 1 
3UCCES 
-tmbnt 

TEMP 2 
Tl'MFLG 
THFftFft- 
‘1 RAMSZ 
TR) 03 
Br+^&fc 


0285 
0001 
FOE3 
0314 
0317 
G2B9 
0006 
D01 3 
“0291 


UNI OCK 
VC1 ABL 
V T M IR6 
VSCROL 
VI 1MR1 

- W B l/ Krl- 


0024 

E480 

0216 

D405 

0210 

0222 


WR ) I F 
XI 1V3BV 

r\ * vmX III I 

/Tt MP3 


0057 
E462 
FI 60 
00F9 


RMARGN 

RTCLOK 

SCREDT 

SCRNOK 

SEROUT 

SHFLOK 

SIOGRG 

SIZEP1 

SKRES 

SPECL- 

SSKCTL 

STATUS 

ST I OK 3 

STRIG2 

SWPFLG 

TBL1.EN 

TEMP3 

T I MOOT 

TMPLBT 

TRIGO 

TRNRCD 

TttT M SC 

USAREA 

VDELAY 

WINTER 

USER IN 

VTIMR2 

WAR MS T- 


0053 

0012 

0045 

F1DB 

D20D 

02BE 

£944 

D009 
D20A 
F23F ' 
0232 
0030 
“02 7 B 
0286 
007B 
OOOE 
0315 
008A 
“02 A 1 
D010 
0089 
0294 
0480 
D01C 
0204 
020A 
0212 
0008 - 


WRONLY 
XMTDON 
Z0SRM2 
ZTEMP4 


0083 
003A 
FI 63 
00F7 


ROW AC 

SAVADR 

SCRENV 

SDLSTH 

SEC T X 

SETVBV 

SIGNON 

SIOV 

SIZEP2 

SKSTAT 

SQR 

STACKP 

STICKO 

ST I HER 

STRIG3 

SYSVBV 

TEMP 

TIMER 1 

TINDEX 

TMPROW 

TRIG1 

TSTAT 


0070 

0068 

E410 

0231 

F34C 

E45C 

F223 

E459 

DOOA 

D20F 

BEB1 

0318 
0278 
D209 
0287 
E45F 
023E 
030C 
0293 
02B8 
D01 1 

0319 


TX f OLD 0296 


VBREAK 

VDSLST 

VKEYBD 

VSEROC 

VTIMR4 

WARMSV 

WSYNC 

ZERORM 

Z0SRM3 


0206 
0200 
0208 
020E 
0214 
E474 
D40A 
F 1 38 
F16E 


W »N.4 V/ 


4: 00: 00 P. M. 


ROWCRS 

SAY ID 

SCRFL.G 

SDLSTL 

SENDEV 

SEX 

SIN 

SIZEM 

SIZEP3 

SOUNDR 

SR T I MR 

STATC 

STICK1 

STR I GO 

SUBTMP 

TABMAP 

TEMPI 

TIMER2 

TMPC HR 

TMPX1 

TRIG2 

TSTDAT 


0054 

0316 

02BB 

0230 

cl fi jl.cz 

0000 

BD81 

DOOC 

DOOB 

0041 

022B 

0053 

0279 

0284 

029E 

02A3 

0312 

0310 

0050 

029C 

D01 2 

0007 


VCOUNT 

VECTBL 

VPRCED 

VSEROR 

WBLKD 

WMOBE 

XBOOT 

ZIOCB 

Z TEMPI 


D40B 
E400 
0202 
020C 
0224 
0289 
F361 
0020 
OOF 5 
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DISPLAY HANDLER — 10-30-78 — DISPLC 


. TITLE 'DISPLAY HANDLER 


10-30-78 


— DISPLC' 




HANDLER DEPENDENT EQUATES 


0098 


OR 


*9B 


007D 

009F 


0068 

0066 


CLRCOD 

CNTL1 

FRMADR 

TOADR 

~t — — 


*7D 

*9F 


SYSTEM EGL 


CLEAR SCREEN AT ASCI CODE 
POKEY KEY CODE FOR "1 


SAVADR 

MLTTMP 


: •: . -I.'.:- _ __ • 






■ 
































0 1 J-iPl AY HANDLER — 10-30-78 — DISPLC 


*=EDITRV 

f 

r SCREEN EDITOR HANDLER ENTRY POINT 


t 

1400 FB F3 EDITOR .WORD EOPEN-1 

F402 -33~F6 WORD RETUR t — 1 (CLOSEY- 

L404 3D F6 . WORD EGETCH-1 

i-406 A3 F 6 . WORD EOUTCH-1 

E408 33 F6 WORD RETUR 1-i < STATUS) 

1 40 A 3C F6 .WORD NOFUNC-1 (SPECIAL) 

* ‘ 40C 4C E4 F3 JMP PWRONA 

F40F-0O- -BYT E O ROM FT LEER— BYTE 

# 

*=SCRENV 


; DISPLAY HANDLER ENTRY POINT 


F4TO F5 f 3 

E412 33 F6 
1414 92 F5 

— i- A ! jl r ej; 

DI-SPLA .WORD 

. WORD 
. WORD 

.. . . - . . , . , . __ _ unp n 

DOPEN- 1 
RETUR 1- 1 
GETCH-1 

m itaij *i 

(CLOSE) 


x*"r ro do r v7 

1-418 33 F6 
E41A FB FC 

-4-41 c 4 r CA rq. 

. Wunu 

. WORD 
. WORD 

IMP 

U Km} I w 11 1 

RETUR 1—1 
DRAW-1 
PWRONA 
0 

(STATUS) 

(SPECIAL) 


F41F 00 

\J 1 II 

. BYTE 

ROM FILLER 

BYTE 



-*-KEYBBV 


-r —KEYBOARD HANDLER ENTRY POINT — 

# 

E420 33 F6 KBDHND .WORD RETUR1-1 

P422 33-F6 - . --W O R D RETUR 1 — 1 XCLOSE4- 

f-424 El F6 . WORD KGETCH-1 

1-426 3C F6 WORD NOFUNC-1 (OUTCH) 

T42S 33 F4 — -WORD RETUR 1-4 X STATUS) 

I42A 3C F6 .WORD NOFUNC-1 (SPECIAL) 

E42C 4C E4 F3 JMP PWRONA 

F. 4 2F — 00 --BYTE © ROM FILL ER BYTE 


I NTER R UFT - V E CTO R- TABLE ENTRY 

*=VCTABL-INTABS+VKEYBD 

i-488 BE FF .WORD PIRQ KEYBOARD IRQ INTERRUPT VECTOR 


DISPLAY HANDLER 


10—30—78 


DISPLC 






r 




P3E4 A9 FF 
P3E6 8D FC 02 


HBE* ^ E6~ <& 


PWRONA 




-P3FO *9 40 


^ ■ — 


P3F2 8D BE 02 
F3F5 60 

















*=KBDORG 

LDA 
STA 



#*FF 

CH 



LDA MEMTGP+l 

AND #*F0 

3XA_ 


STA 

RTS 


SHFLOK 


— 





















—LLw'S M «J \A- U IK. 






LT TO UPPER 


POWER ON COMPLETED 




































DISPLAY HANDLER — 1 0-30-78 - 


displc 


F3F6- A5- 5B 
P3F8 29 OF 
F3FA DO 08 
F3FC A5 2A 
f'3FE 29 OF 
f- 400 85 2 A 
P402 A9 OO 
I 404 85 57 
T-406 A9 EO 
F4O0 8D F4 02 
F-40B A 9 02 
F40D SD F3 02 
F410 8D SF-QB 
'<■413 A9 01 
F 415 85 4C 

F417A9 -CO 
F4 1 9 05 10 
f • 4 1 B 85 10 
F44D--8D -OE D2 


i BEG I 

i 

DBPHEN- 

EOPEN 

QPNCOM 


N DISPLAY HANDLER OPEN PROCESSING 


-FCAX2Z- — GET- AUX- 3 BYTE 

#$F 

IF MODE ZERO/ CLEAR ICAX1Z 
CLEAR "CLR INHIBIT-" AND "MXD MODE** BITS 


F 420 A9 00 
i'422 8D 93 02 
— F 42 5- 85 64 
F427 85 7B 
F429 8D FO 02 


F 42E A9 01 
F430 99 A3 02 

F 433 88 

F 434 10 FA 
F436 A2 04 
4*438 BD -G4--FE 


OPNCOM 

ICAX1Z 

#$F 

ICAX1Z 

#o 

DINDEX 

#$E0 

CHBAS 

#2 

CHACT 

SDMCTL 

#SUCCES 

DSTAT 

PGKMSK 

POKMSKi 

IRGEN4- 

TINDEX 
ADRESS 
SWPFLG 
CRSINH 
#14 


INITIALIZE GLOBAL VBLANK RAM 


TORN OFF DMA NEXT VBLANK 

CLEAR STATUS 
DO IRQEN - 


TEXT INDEX MUST ALWAYS BE 0 


1-43E 9D C4 02 
F 43E CA 
F43F 1-0 F7 


CLRTBS 


BOFEN& 


#1 

TABMAP> Y 


TURN CURSOR ON AT OPEN 

- CLE AR TAB STOPS 

INIT TAB SI OPS TO EVERY 8 CHARACTERS 


1-441 A4 6A 
F443 88 

-44 4 4 Q C -95 02- 

1-447 A9 60 
>449 0D 94 02 
P44C A6 57 
F44E BD 69 FE 
F451 DO 04 
F453 A9 91 


CLRTBS 

#4 LOAD COLOR REGISTERS 

COL R T B i X — , __ 

CQLORO, X 


RAMTQP DO TXTMSC=(i2C4Qj < IF MEMTQP=3000) 


F455 85 4C 
F457 85 51 
- F 4 59 A 5 6 A 


F45B 85 65 
F45D BC 45 FE 
P460 A9 28- 
F462 20 21 F9 
F 46 5 88 
F466 m FB 
F468 AD 6F 02 
1 46B 29 3F 
F46D 85-67- 
I 46F A8 


GFWERR 

DOPENA 

BGPEN4 


LDY 

LDA 

JSR 

DEY 

BNE 

LDA 

AND 

^TA 

TAY 


#$60 
TXTMSC 

-DI-NDEX 

ANCONV/ X CONVERT IT TO ANTIC CODE 
DOPENA IF ZERO/ IT IS ILLEGAL 
#B_ADH_QD_ SET ERROR STATUS 
DSTAT 
HO LD: 

RAMTOFM SET UP AN INDIRECT POINTER 
ADRESS+1 

AL.OCAT / X ALLOCATE N BLOCKS OF 40 BYTES 

-#4G 

DBSUB 

D0PEW1 - - i 

GPRIOR CLEAR GTI A MODES 
#$3F 

O FN TMF + 1 




— — — 


I- 470 E0 08 
P472 90 17 
1474 8A 
1-475 6A 

-AA- 

1 477 6A 
f-478 29 CO 
K47A ^5 67 
F47C A8 
F47D A9 10 
M7F 30 ai F9 
J 482 EO OB 
1 484 DO 05 
P486 A9 06 
F488 8D C8 02 
F48B 8C 6F 02 
-F48E A 5 -64 
F490 85 58 
F492 A5 65 
F494 85 59 
F496 AD OB D4 
I- 499 C9 7 A 
F4 9B DO-F9 





F49D 20 IF F9 
F 4 AO BD 75 FE 
1 • 443 FO 06 
F4A5 A9 FF 
F4A7 85 64 


CPX 

BCC 

TXA 

ROR 

ROR 

ROR 

AND 

ORA 

TAY 

LDA 

JSR 

CPX 

BNE 

—EDA 

STA 

N0T8 STY 

LDA 

STA 

LDA 

STA 

VBWAIT LDA 
CMP 
BNE 


#8 

NOT8 

A 
A 
A 

#*C0 

OPNTMP+1 


TEST IF 320X1 

GET 2 LOW BITS 

NOW 2 TOP BITS 


SUBTRACT 16 MORE FOR PAGE BOUNDARY 

TEST MODE 11 
IF MODE = 11 

PUT GTIA LUM VALUE INTO BACKGROUND REGISTER 

STORE NEW PRIORITY 

SAVE MEMORY SCAN COUNTER ADDRESS 


JSR 

LDA 

BEG 

LDA 

STA 

DEC 


#16 
DBSUB 
#11 
N0T8 
#6 

C0L0R4 
GPRIOR 
ADRESS 
SAVMSC 
ADRESS+1 
SAVMSC+1 

VCOUNT WAIT FOR NEXT VBLANK BEFORE MESSING 
#*7A WITH THE DISPLAY LIST 
- V O W AIT 


DBDE.C START PUTTING DISPLAY LIST RIGHT UNDER RAM 
PAGETB, X TEST IF DISPLAY LIST WILL BE IN TROUBLE 
NOMOD OF CROSSING A 256 BYTE PAGE BOUNDARY 
#*FF IF SO, DROP DOWN A PAGE 

ADRESS - 

;SS 4 >1 



1ST FOR LATER 


F44F 45 65 
F4B1 85 69 
F433 20 13 F9 
F4B6 4 9 41 




F4B8 20 17 F9 
!4BB 86 66 
4-4BD A9 18 


LDA 

STA 

JSR 

LDA 



SAVADR+1 
DBDDEC (DOUBLE 
#*41 (ANTIC-) 


STORE 


BYTE DOUBLE 
WATT FOR— 


DECREMENT) 

AND JMP TO 


TOP 




F43F QD BF 02 
F4C2 A5 57 
-FA C 4 C9 -09 


— - * — «» * ’ 

- • • • ' • . v . • • ' • ....... • 

► 

I-N I T I AL1ZE BOTSCR 

DISALLOW MIXED MODE IF MODE. GE. 9 



F4CC FO 27 
F4CE A9 04 
E4DO-8D BF 02 


f 4D3 A2 02 
F4D5 A9 02 
F4D7 20 +7 F9 
F4DA CA 
F4DB 10 F8 
F4DD ~AA 6A 
r 4DF 88 
F4E0 98 
F4E1 20 17 F9 
F4E4 A9 60 
I 4E6 20 17 F9 
F4E9 49 42 


D0PEN2 


F4EB 20 17 F9 


STA 

BOTSCR 

LDX 

il 

#2 

LDA 

#2 

JSR 

STORE 

DEX 


BPL 

D0PEN2 

EDY 

RAMTOP 

DEY 


TYA 


JSR 

STORE 

LDA 

#*60 

JSR 

STORE 

EDA — - 


JSR 

STORE 


ADD 4 LINES OF TEXT AT BOTTOM OF SCREEN 


— 




RELOAD HSC FOR TEXT 










DISPLAY HANDLER — 10-30-78 — DISPLC 




Moor* Business Forms, Inc. sv 14I2T 


mkpl 


AV HANDLER 


10-30-78 


DISPLC 


t 


F4EE 18 
F4EF A9 OC 
F4F 1 65 66 
F4F3 85 66 
F4F5 A4 66 


F4F7 BE 51 FE 
F4FA A 5 51 
F4FC 20 F7 F9 
F4FF CA 
1-500 DO F8 
F 502 A5 57 
F 504 C9 08 
F 506 90 1C 
F 508 A 2 5D 
!- 50A A5 6A 
F50C 38 
FOOD E^ TO 
F 50F 20 17 F9 
=> A9 00 

4?-F<? 
F517 A9 4F 
F 51 9 20 17 F9 

F 54 € A 5 -51 

F51E 20 17 F9 
F 52 1 CA 
F 522 -DO F8 
F 524 A 5 59 
F 526 20 17 F9 
4-529- A5~ 58 — 


CLC 

LDA 

ADC 

STA 

NQTMXD LDY 
LDX 

D0PEN3 LDA 
JSR 
DEX 
BNE 
LDA 
CMP 
BCC 
LDX - 
LDA 
SEC 


#M X DMDE— NUMDLE POINT X AT MIXED MODE TABLE 

OPNTMP 

OPNTMP 

OPNTMP 

NUMDLE, Y GET NUMBER OF DISPLAY LIST ENTRIES 

H0LD1 STORE N DLE'S 

STORE 


DO THE MESSY 320X1 PROBLEM 




D0PEN3 
DINDEX 
#8 

D0PEN5 

#93 __ GET REMAINING NUMBER OF DLE ' S 

( RAMT QP3 RELOAD MEMORY SCAN COUNTER 



F5i; 




SBC 

JSR 
LDA 

_ inn 

J6K 

LDA 

JSR 

DQPEN4 -LBA-- 
JSR 
DEX 

— BNE 

D0PEN5 LDA 
JSR 

LDA 






(ANTIC) RELOAD MSC CODE 


F52B 20 17 F9 
F 52E A 5 51 
F 530 09 40 


#$10 
STORE 
#0 

STORE 
#$4F 
STORE 
HGLD1 
STORE 

nnnrKM 

L;UrtN4 

5AVMSC+1 POLISH OFF DISPLAY LIST 
STORE 
SAVMSC 













— 


F 532 20 17 F9 
F 535 A9 70 
F 537 50 17 -FS 


F 53A 
F53C 
4-53 F 
F 541 
F 544 
F546 


F 549 
F54B 
F54E 
F 550 
553 
4-555 
F 558 
F55A 


F55E 
F 560 
F563 
F 566 
F 569 
F 56C 
F 56E 
F 570 


A9 70 
20 17 F9 
A 5 64 
8D 30 02 
A5 65 
8D 34 02- 
A9 70 
20 17 F9 
A5 64 
8D E5 02 
A5 65 
0D-E6-O2 
A5 68 
85 64 
A5 69 
85 65 
AD 31 02 
20 47 F9 








AD 30 02 

20 17 F9 
A 5 40— 

10 07 
48 




F574 68 


JSR 
LDA 
ORA— 
JSR 
LDA 

*’■■ " ■* ' ■■■■ " JSR 

LDA 
JSR 
LDA - 
STA 
LDA 

OTA 

LDA 
JSR 
LDA - 
STA 
LDA 
-STA 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDA 
JSR 
LDA 
BPL 
PHA 
JSR 
PLA 


STORE 










H0UD1 

#$40 — 






24 BLANK LINES 


STORE 
#$70 

STORE — 

#$70 

STORE 

ADRESS SAVE DISPLAY 








LIST ADDRESS 




SDL.STL 
ADRESS+1 

-S PLSTL + 1 

#$70 ADD LAST BLANK LINE ENTRY 

STORE POSITION ADRESS=SDLSTL-1 

ADRESS STORE NEW MEMTOP 

MEMTOP 

ADRESS+1 

MEMTO P -+4 




SAVADR 
ADRESS 
SAVADR +1 
ADRESS+1 
SDLSTL+1 
STORE 
SDLSTL 
STORE 
DSTAT 
D0PEN9 

EQPEN— 


TF ERROR OCURRED ON ALLOCATION, OPEN THE EDITOR 


SAVE STATUS 
OPEN THE EDITOR 
RESTORE STATUS 





DISPLAY HANDLER — 10-30-78 — DISPLC 


F575 A8 
f- 576 60 
F577 A5 
F579 29 
F57B DO 
F57D 20 
I 380 8D 
F583 AS 
I 583 8D 
I 588 A9 
f* 5SA G£> 
b 58D 8D 
b 590 4C 


D0PEN9 


D0PEN7 


I C AX 1 Z 

#420 

DOPEN7 

CLRSCR 

TXTROW 

LMARGN 

TXTCOL 

#422 

SDMCTL 

SDMCTL 

RETURN 


AND RETURN IT TO CIO 
TEST CLEAR INHIBIT BIT 


CLEAR SCREEN 

AND HOME TEXT CURSOR (AC IS ZERO) 


EVERYTHING ELSE IS SET UP 
SO TURN ON DMACTL 


I 593 
f-596 
F 599 
f 59 C 
P 59F 
F5A2 
F5A5 
P5A7 


F5AA 
F SAC 
bSAE 
b 5AF 
F5B1 
FSB4- 


96 FA 
A2--F5- 
32 FB 
D4 F9 
34 F6 
47 F9 
64 

AO OS 


GETCH JSR 
USR 
JSR 
JSR 
JMP 

GETPLT JSR 
LDA 
AND 


SHIFTD LSR 
BCS 
ESR 
BPL 

SHIFT 1 STA 
CMP 


RANGE GETCH DOES INCRSR, GETPLT DOESN'T 
GETPLT 

INATAC CONVERT INTERNAL CODE TO ATASCII 

INCRSB 

RETUR 1 

CONVRT CONVERT ROW/COLUMN TO ADRESS 
(ADRESS) , Y 

nuAPi/ 

l/nnOr> 

SHFAMT SHIFT DATA DOWN TO LOW BITS 
SHIFT 1 
A 

SHIFTD 
CHAR 
#G 


F 5B6 60 


(UNCONDITIONAL) 
RESTORE FLAGS ALSO 


RTS 


I 5B7 8D FB 02 
F5BA 20 9 6 FA 








h 5BD AD FB 02 
P5CG -C9-7D 
b SC 2 DO 06 
1-5C4 20 B9 F7 


—bSCT—AO 2T F6> 
F5CA AD FB 02 
I 5CD C 9 9B 
hSCF DO 06 
f- 5DI 20 30 FA 
F5D4 4C 21 F6 


OUTCH 


STA 


OUTCHE 


LDA 

CMP 

BNE 

JSR 

JMP 

LDA 

CMP 

BNE 

JSR 

JMP 


ATACHR 




OFTC KCT 

'ACHR TEST FOR CLEAR SCREEN 
#CLRCOD 
OUTCHE 
CLRSCR 
RETURN 


ATACHR TEST FOR CARRIAGE RETURN 
#CR 




OUTCHB 

DOCRWS 

RETURN 










DO CR 


4 5D7- 20--E0-FO- - 


i 5t> A 20 D8 F9 


OUTPLT 


*• 5DD 4 C 21 F6 






I5E0 AD FF 02 
T-5EO DO FB 


OUTPLT LDA 


SSFLAG *#***LGOP HERE IF START /STOP FLAG IS NQN-0 


f SE 5 A2 02 
T5E7 B5 54 
F5E9 95 5A 
b 5EB CA 
b SEC 10 F9 
-T-5EE -A 










C'RLOOF 


BNE OUTPLT 

LDX #2 







F5F1 A8 




LDA 

STA 

DEX 

BPL 

LDA- 


ROWCRS, X SAVE CURSOR LOCATION FOR DRAW LINE TO DRAW FROM 
GLDROW, X -- 


CRLOOP 


ATACHR CONVERT 

SAVE ATACHR 












— ~ — * 


* * > I 




DISPLAY HANDLER — 10-30-78 — DISPLC 


r 






i 5F2 2A 
-F5F9- 2A 
F5F4 2A 
F 5F5 2 A 
P5F6 29 03 
i 5F8 A A 
F5F9 98 


F5FA 29 9F 
F 5FC ID F6 FE 
F5FF 8D FA 02 
F602 
F605 AD FA 02 
! 608 46 6F 
F60A 30 04 


0UTCH2 


SHIFTU 






F60C OA 
F60D 4C 08 F6 
F610 2D AO 02 
F613 85 50 
F 6 1 5 AD AO 02 

F61F3 49“ -FF 

F61 A 31 64 
F61C 05 50 
F6FE 91 64 — ~ 
.‘-620 60 




-SH I F TS 


ROL 

A 

ROL 

A 

ROL 

A 

ROL 

-AKirv 

A 

AMU 

TAX 

#3 

TYA 


AND 

#$9F 

ORA 

ATAINT 

STA 

CHAR 

JSR 

CONVRT 

LDA 

CHAR 

LSR 

SHFAMT 

BCS 

SH IFT2 

ASL 

A 

JMP 

SHIFTU 

AND 

DMASK 

STA 

TMPCHR 

LDA 

DMASK 


X HAS INDEX INTO ATAINT 

REATORE ATACHR 

STRIP OFF COLUMN ADDRESS 


SHIFT UP TO PROPER POSITION 




— 








-EOR 

AND 

ORA 

-STA- 

RTS 


SAVE SHIFTED DATA 
INVERT MASK 


#*FF 

< ADR ESS ) > Y MASK OFF OLD DATA 
TMPCHR OR IN NEW DATA 
< ADRESS ) , Y 










F 62 1 20 A2 F5 
f-624 85 5D 
4-626 -A o 57- 


RETURN JSR 
STA 
LDX- 




F628 DO OA 
i-62A AE FO 02 

E62D DO 05 

F62F 49 80 
r 63 1 20 FF F5 






F636 A9 01 
F638 85 4C 
E6 3A AD 




F 63D 60 


BNE 
LDX 
BNE 
EOR 
JSR 

pi t ti if? 1 . x n v 
r\ tz . I un x ui/ t 

LDA 
STA 
-LDA 
NOFUNC RTS 


GETPLT 

OLDCHR 

DINDEX 

RETUR1 

CRSINH 

RETUR1 


DO CURSOR ON THE WAY OUT 



TEST CURSOR INHIBIT 


#$80 TOGGLE MSB 
0UTCH2 DISPLAY IT 

DSTAT RETURN TO GIG WITH STATUS IN 

#SUCCES 

DSTAT SET STATUS= SUCCESSFUL COMPLETION 
ATACHR PW -ATACHR IN AC FOR -RETURN TO CIO 

(NON-EXISTENT FUNCTION RETURN POINT) 


> END OF DISPLAY HANDLER 



)) J ('Ml AY HANDLER 


10-30-78 


DISPLC 


r 


— . — 


{ 63E 20 S3 FC 
F641 20 88 FA 
I 644 A5 6B 
L646 DO 34 
F 648 A 5 54 
I-64A 85 6C 
-+■640 A5 50 


EOETCW 


n 


JCD 

v/on 

JSR 


F6 


F64E 85 6D 
F650 20 E2 
f653 S4 4C 
f 655 AD FB 02 
F658 C9 9B 
F6 5 A F O 4 3 


EGETC1 


LDA 
BNE 
• LDA 
STA 
V LDA 
STA 




J-65C 20 AD F6 
F65F 20 B3 FC 
f 662 AS 6>3 








— 


F664 C9 71 
F666 DO 03 
F 668 20 OA F9 


}*66B 4C 50 F6 





USFT 

STY 

LDA 

CMP 

BEG 

JSR 

JSR 

LDA 

CMP 

BNE 

GSR 


! 66E 20 E4 FA 
- F674 30 -30 FC - 


EGETC6 


JMP 




CLIAO 

vj»vnr 

ERAJ4GE 
BUFCN 
EG 
ROWCRS 
BUFSTR 
COLORS 
BUFSTR+1 

T^getch 

DSTAT 
ATACHR 
#CR 

EGETC2 
DOSS 
SWAP 
LOGCOL 
#1 13 
EGETC6 
BELL 


ANYTHING IN THE BUFFER? 

YEB 

NO, SO SAVE BUFFER START ADDRESS 



LET'S FILL OUR BUFFER 
SAVE KEYBOARD STATUS 
TEST FOR CR 


NO, SO PRINT IT 

JSR DOSS DID SWAP SO SWAP BACK 
BEEP IF NEARING LOGICAL COL 120 




EGETC2 JSR 




■JSR 






f-674 A 5 6C 
F676 85 54 
-L678 A5 60 
F67A 85 
F67C A5 6B 
4 6-7 E FO--14 


LDA 

STA 


EGETC1 
OFFCRS 
DOBUFC 
BUFSTR 
ROWCRS 






GET BUFFER COUNT 


RETURN A CHARACTER 


r 


fc 


— ...... 



— 

r, / n, 

? OOO 


1-680 C6 6B 
F682 FO OD 
{^684 A 5 4 C - 


EGETC7 


BEG 


DEC 

BEG 

LDA 


BUFCNT 

EGETC5 

DSTAT 


{ 688 


30 F8 


93 


32 


BMI 

JSR 



EGETC7 

GETCH 


AND RETURN TILL BUFCNT=0 


IF SRROR, LOOP OW -E3ET-C7 • - 






F68E 4C B3 FC 
F691 20 30 FA 
F69 4 -A9--9B— 
1-696 8D FB 02 
f-699 20 21 F6 
F69C 84 40 
F69E 4 C B3 FC 


EGETC5 




JMP 

JSR 

LDA 


*T~ — ' — — " 

STA 


SWAP 
DOCRWS 
#CR 


AND RETURN WITHOUT TURNING CURSOR BACK ON 
DO REAL CARRIAGE RETURN 








JSR 

STY 

JMP 



ATACHR 
RETURN 
DSTAT 

SWAP AND RETURN THROUGH RETUR1 


L6A1 6C 64 GO — 


f 6A4 
F6A7 
f 6AA 
I 6AD 
F6BG 
F6B3 
F6B5 
F6B8 
! 6BB 
! 6BE 
F601 - 
f 6C4 


8D FB 02 
20 S3 FC 
20 88 FA 
20 E4 FA 
20 80 fC 
FO 09 
OE A2 02 
30 CA 
4C B3 FC 
AD FE 02 
OD -A3- 02 
DO EF 


LND UMP 


EOUTCH 


STA 

JSR 


( ADRESS > 


ATACHR 

SWAP 



JSR 

ERANGE 

DOSS 

JSR 

OFFCRS 



IPO 

TSTCTL 


BEQ 

E0UTC5 

E0UTC6 

ASL 

ESCFLG 


GSR- 

[0UTCH£j 

ERETN 

JMP 

SWAP 

E0UTC5 

LDA 

DSPFLG 

— - 

BRA 

ESCFLG 


BNE 

E0UTC6 



SAVE ATASCII VALUE 



AND RETURN THROUGH RETUR1 


TF NnN-0 DISPLAY RATHER r HAN EXECUiE 







Moors Business Formi, Inc. iv U12T 


DISPLAY HANDLER — 10-30-78 — DISPLC 








r 




F6C6 OE A2 02 
F6C9 E8 
F6CA BD C6 FE 
F 6CD 85 64 
P6CF BD 07 FE 


# 

* 

» 




L6D2 85 65 
F6D4 20 A1 F6 
F6D7 20 21 F6 


ASL 
I NX 
LDA 
STA 
LDA 


STA 


ESCFLG 

PROCESS CONTROL CHARACTERS 
CNTRLS, X GET DISPLACEMENT INTO ROUTINE 
ADRESS 

CNTRLS+1,X GET HIGH BYTE 


i-6DA 4C B3 FC 


JSR 

JSR 

JMP 




ADRESS+1 
JSR IND DO COMPUTED JSR 
RETURN DO CURSOR 

SWAP ALL DONE SO RETURN THROUGH RETUR1 



; ~ 


-r END SCREEN 




















F6EB FO 50 


F 6ED AD 


F6F0 C9 


F0F2 FO 


— — — — 

FC 02 
FF 





BEO 




LDA 




CMP 
■ 


BEO 


• ■ — —■ ■ ■ 


P6F4 85 7C 
F6F6 A2 FF 
F6F8 8E F€ -02 


F6FB 20 
F6FE AA 


D8 FC 




STA 
LDX 
STX 





H6FF EO 


£Q J 


KGETC3 


— 


F-701 90 
F703 A2 
- F705- B0 


02 
03 
FE-FE 


■ , - ? T . - 






F708 8D 
F70B C9 


FB 02 


BCC ASCC01 

LDX #3 BAD CODE 

LDA ; 









F70F C9 
F71 1 DO 
F713 AD 


CMP 

BNE 








F 716 49 
F 7 1 8 8D 
-F 71B 40 
F71E C9 
F720 DO 
F722 A9 




{724 8D 
i 727 FO 
V 729 C9 


F72B DO 
F72D A9 
F 72F BD 



#$80 
INVFI 
KGETC2 


STA INVFLG 

./ 0.1 — rr*r-\ M-r r. M 




HOLDCH SAVE CH FOR SHIFT LOCK PROC 

#$FF "CLEAR" CH 
“ 1 


STA ATACHR DONE 

CMP #$80 DO NULLS 

BEO KGETC3 


#$81 CHECK ATARI KEY 
KGETC1 

T MUFI d 
l IM V» 


CAPS/LOWER 
CLEAR SHFLOK 


#$82 
K 1 

#0 

SHFLOK 

KGETC2 

#$83 SHIFT CAPS/LOWER 
K2 

#$40 

SHFLOK SHIFT BIT 
KGETC2 









DISPLAY HANDLER — 10-30-78 — DISPLC 


P 734 C9 84 
1736 DO 07 
F738 A9 80 
P73A 8D BE 02 
F73D DO 9E 
F73F C9 85 
\7 41 DO OA 
P743 A9 8© 

F 745 85 4C 
f-747 85 11 

- -F749 A9 9B 

P 74B DO 26 
P74D A 5 7C 

-F74F C9 40 
P751 BO 15 
f-753 AD FB 02 

- 4* 756 € 9 61 
P758 90 OE 
F75A C9 7B 
F75C BO OA 

i- 75E AD BE 02 
h 761 FG 05 

--F 763 05 70 
F765 4C FE F6 
. /68 20 8D FC 


K2 


K3 


K7 


K6 


CMP 

BNE 

LDA 

STA 

BNE 

CMP 

BNE 

LDA 

STA 

STA 

LDA 

BNE 

LDA 

CMP 

DCS 

LDA 

CMP 


K5 


BCC 
CMP 
BCS 
LDA 
BEQ 
OR A 
JMP 
JSR 


#$84 

K3 

#$80 

SHFLOK 

K0ETC2 

#$85 

K6 

#EOFERR 

DSTAT 


#CR 
K8 

HOLDCH 

#$40 

K5 

ATACHR 

#$61 

K5 

#$7B 

K5 

SHFLOK 

K5 

HOLDCH 

KGETC3 

TSTCTL 


F76B FO-09- - — — - - -BGO K4 


}-76D AD FB 02 LD A ATACHR 

f*770 4D B 6 02 EOR INVFLG 

-F 773 8D FB 05 KG STA ATACHR 

l 776 4 C 34 F6 K4 JMP RETURi 


T 


CNTL CAPS/LOWER 
CNTL BIT 


DO EOF 


RESTORE BREAK 

PUT CR IN ATACHR . 

(UNCONDITIONAL) 

PROCESS SHIFT LOCKS 

REGULAR SHIFT AND CONTROL TAKE PRECEDENCE 

OVER LOCK 

TEST FOR ALPHA 

LOWER CASE A 

NOT ALPHA IF LT 

LOWER CASE Z+l 

NOT ALPHA IF GE 

DO SHIFT/CONTROL LOCK 

IF NO LOCK, DONT RE-DO IT 

n ' '■ ' " y -■■’■’’7 ■ ’• yv .-', ~ 7 T "" r M V ' TT -:; i " ; ; ■ ---1 

DO RETRY 

DONT INVERT MSB OF CONTROL CHARACTERS 


ALL DONE 


7 


"• — 
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t 


CONTROL CHARACTER PROCESSORS 








— 


P779 A9 80 
I-77B 8D A2 02 
P77E 60 
P77F C6 54 
F781 10 06 
F783 AE BF 02 
P786 CA 


1-787 86 54 
F789 4C 5C FC- 
P7BC E6 54 
F78E A 5 54 
P790 CD BF 02 
P793 90 F4 
F795 A2 00 
P797 FO EE 
+-799 06 55 
P79B A5 55 
P79D 30 04 
4-79F 05 52 


ESCAPE 


CRSRUP 


UPDNCM 

COMRET 

ORSRDN 


CRSRL.F 


P7A1 BO 04 
P7A3 A 5 53 
4-7A5 85 55 
1-7A7 4C DD FB 
I-7AA E6 55 
F7AG A 5 -55- 


CRSRL1 

LFRTCM 

C0MRE1 

CRSRRT 


LDA 

STA 

RTS 

DEC 

BPL 

LDX 

DEX 

STX 

JMP 

INC 

LDA 

CMP 

BCC 

LDX 

BEQ 

DEC 

LDA 

BMI 

CMP 

BCS 

LDA 

STA 

JMP 

INC 

-EDA 


#♦80 

ESCFLG 

ROWCRS 

COMRET 

BOTSCR 

ROWCRS 

STRBEG 

ROWCRS 

ROWCRS 

BOTSCR 

COMRET 

#0 

UPDNCM 

COLORS 

COLORS 

CRSRL1 

LMARGN 


SET ESCAPE FLAG 


WRAPAROUND 


CQLVERT ROW AND COL TO LOGCOL AND RETURN 


(UNCONDITIONAL) 


(IF LMARGN=Oi THIS ELIMINATES PROBLEM CASE) 


C0MRE1 

RMARGN 

COLORS 


DOLCOL 

COLORS 

COLORS 


COLVERT ROW AND COL TO LOGCOL AND RETURN 


F7AE 05 53 
I-7B0 90 F5 
I-7B2 FO 
F7B4 A 5 52 
P7B6 40 A 5 F7 
F7B9-2D-F3-FG 


F7BC AO 00 
F-7BE 98 
-4-7BF 94 64 
P7C 1 08 
r-7C2 DO FB 


-GLRSCR 


-OLRS02 


P704 €6 65 
F7C6 A6 65 
F7C8 E4 6A 
F70A 90 F3 


f-7CC A9 FF 
F7CE 99 B 2 02 
F7D4 08 — 


CLRSC3 


CMP 
BCC 
BEG 
LDA 
JMP 
JSR 
LDY 
TYA 
STA 
I NY 
BNE 

7 Kir* 

LDX 

CPX 

BOO 

LDA 

STA 

INY 


(CAUSE BLE) 


UNCONDITIONAL TO COMMON STORE 


RMARGN 
C0MRE1 
COMREi 
LMARGN 
LFRTCM 
PUTMSC 
#0 

PUT 0 IN THE AC 
(A DR ESS) r-Y- (AC IS ZERO) 


CLRSC2 

ADRESS-H 





ADRESS+1 
RAMTOP 
0LRSC2 
#*FF 
LOGMAP 






CLEAN UP LOGICAL LINE BIT MAP 
Y (Y IS ZERO AFTER CLRSC2 LOOP) 


F7D2 CO 04 
P7D4 90 F8 
F7D6 20 £4 FC 
F7D9 85 63 
F7DB 85 6D 
L7D0 A9-SG- 
F7DF 85 54 
{ 7E1 85 56 
-F7E3 85 60 
F7E5 60 


HOME 




CPY 

BCC 

JSR 

STA 

STA 

LDA 

STA 

STA 

STA 

RTS 


#4 

CLRSC3 
COLOR 
LOGCOL 
BUFSTR+1 
#0 

ROWCRS 

COLCRS+1 

BUFSTR 


5GT H 

PLACE CGLCRS AT 


LEFT EDGE 



-P7E6 -A5 63 


BB 


LDA 

CMP 


LOGO OL BACKSP ACE 
LMARGN 
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— 


— 




F7EA F0 21 
P7EC A5 55 
F7EE C5 52 
F7F0 DO 03 
F7F2 20 73 FQ 
I-7F5 20 99 F7 
F-7F8 A5 55 
F7FA C5 53 
\7 FC DO 07 
F7FE A5 54 
P800 FO 03 
1*802 20 7F F7 
F805 A9 20 
K807 80 FB 02 
P80A 20 EO F5 
P80D 4C DD FB 
F81G 20 AA F7 


BSA 


BS3 


LBFT EDGE? 


bs; 


BSl 

TAD 


f 813 A5 55 
F815 C5 52 
F 8 17 PO OA 
f-819 20 34 FA 
F81C 20 20 FB 
F & 1F 90 02 
F-821 BO 07 
F823 A 5 63 TAB 1 

L825 20 -30 -FB- 

F828 90 E6 

F 82A 4C DD FB TAB2 

F8 50 A5 -63 S ETT AB- 

l- B2F 4C 06 FB 




JSR 

JMP 

JSR 

LDA 

CMP 

ONE 

JSR 

JSR 

BCG 


BSl 

COLORS 
LMARGN 
BS3 NO 

DELTIM YES, SEE IF LINE SHOULD BE DELETED 

CRSRLF 

COLORS 

RMARGN 

BS2 

ROWCRS 

BS2 

CRSRUP 
#*20 
sTACHR 
OUTPLT 
DOLCOL 
CRSRRT 
COLORS 
LMARON 
TAB 1 
DOCR 
L.QGGET 
TAB4 


MAKE BACKSPACE DESTRUCTIVE 


AND RETURN 
BEGIN SEARCH 
TEST FOR NEW LINE 


BCS 

LDA 

JSR 

BCC 

JMP 

LDA 


F 832 A5 63 




CLRTAB 




JMP 

LDA 

JMP 


TAB2 

LOGCOL 

BITGET 

TAB 

DOLCOL 

-LOGCOL 


NO 

DO CARRIAGE RETURN 

CHECK IF END OF LOGICAL LINE 

NO, CONTINUE 

(UNCONDITIONAL) 

CHECK FOR TAB STOP 






NO, SO KEEP LOOKING 

COLVERT ROW AND COL TO LOGCOL AND RETURN 




SET BIT IN MAP AND RETURN 










F837 20 9D FC 
F 83A 20 A2 F5 


INSCHR JSR 
JSR 
-STA 


GET CHARACTER UNDER CURSOR 




f 83F 
i 841 
4 844 


A9 00 
8D BB 
20- FF 




F847 
P'849 
4-S4A 
F84D 
l 84E 
4*850 


A5 63 
48 

-2G--DG 


LDA 

PHA 


LOGCOL SAVE LOGCOL: IF AFTER INCRSA LOGCOL IS 

< THAN IT IS NOW, END LOOP 


68 

C5 63 
BO OC 
J 852 A5 7D 
1*854 48 
4-855 20 A2 F5 




INSCIHl 


l 858 
I 85A 
4*85B 
f 8 5E 
1861 
1*864 
P866 
F 868 
486A 


7D 






LDA 

PHA 

JSR 

STA 

PLA 


INSDAT KEEP GOING 


GETFLT 

INSDAT 


INSCH3 

INSCH6 


FB 


INSCH5 


-4 * 86 D 20- 80 -FG- 
r-870 20 47 F9 


JMP 

JSR 

INSCH4 

PLACRS 

DEC 

SCRFLG 

8MI 

INSCH5 

DEC 

ROWCRS 

BNE 

INSCH6 

JMP 

DOLCOL 

JSR 

RHACRS 

JSR 

CONVRT 


IF SCROLL. OCCURRED 
MOVE CURSOR UP 

(UNCOND) CONTINUE UNTIL SCRELG^S MINUS 
COLVERT ROW AND COL TO LOGCOL AND RETURN 


GET DATA TO THE RIGHT OF THE CURSOR 


1»)SPI AY HANDLER 


DISPLC 


— 10-30-78 


r 




I" 873 A 5 64 
"FB75 85 68 
F877 A5 65 
F-879 85 69 
'P87B A5 63 
F87D 48 
F-87E 20 D4 F9 
I- 881 68 
F882 C5 63 
P884 BO 10 
f-886 A 5 54 
i 888 CD BF 02 
F 88B BO 09 
f-S8D 20 A2 F5 
F890 AO 00 
F892 91 68 
F894 FO DA~ 
P896 AO 00 
F898 98 

trrr “I oo 

F*89B 20 68 FC 
F89E 20 A8 FC 
F8A4- 4€ -DD FB 


LDA 
STA 
LDA 
STA 
LDA 
PHA 
JSR 
PLA 
CMP 
BCS 
LDA 
CMP 
BCS 
JSR 
LDY 
STA 
43 EG 

DELCH2 LDY 
TYA 
STA 
JSR 
JSR 




ADRESS 

SAVADR SAVE ADRESS TO KNOW WHERE TO PUT DATA 
ADRESS+l 
SAVADR+1 
LOGCOL 


INCRSB PUT CURSOR OVER NEXT CHARACTER 


P8A4 38 
F8A5 20 7B FB 
P8A8 A 5 52 
F8AA 85 55 
F8AC 20 47 F9 
F8AF-A5 64 


INSLIN 

INSLIA 


[8B1 85 68 
F8B3 18 
FBB4 69 28 
F8B6 85 66 
F8B8 A5 65 
4* 8BA 85-69- 


SEC 

JSR 

LDA 

STA 

JSR 

LDA 

STA 

CLC 

ADC 

STA 

LDA 

STA 


F83C 69 00 
F 8BE 85 67 
F8GO A6 54 - 

f 8C2 EO 17 
F8C4 FO 08 
F8C6 20 4E FB 


INSLIl 


f 8C9 E8 
F8CA EO 


17 

F8 


F8CE 20 9B FB 
f-8Dl 4C DD FB 
F 8D4- 20 DD FB 


i 8D7 A4 51 
[ 8D9 84 54 
--P8DB A4 54 
F8DD 98 
FSDE 38 
rBDF 20 23 FB 
f 8E2 08 
’ 8E3 98 

FSE4- 18 • 

F8E5 69 78 
F8E7 28 
F8E8 20 -04 FB 
!-RFR C8 


INSLI2 

DEL.LTN 
DELL I A 

DELL IB 
DELL II 


ADC 
STA 
LDX 
CPX 
BEG 
JSR 
INX 
CPX 
BNE 
JSR 
JMP 
JSR 
LDY 
STY 
LDY 
TYA 
SEC 
JSR 
PHP 
TYA 
CLC 
ADC 
PLP 
JSR 
I NY 


LOGCOL 
DELCH2 
ROWCRS 
BOTSCR 
DELCH2 
GETPL.T 
#0 

( SAVADR ) , Y 
DELCH1 
#0 


TEST NEW LOGCOL AGAINST OLD LOGCOL 
IF OLD. GE. NEW THEN QUIT 
IS ROW OFF SCREEN - ? 


YES, SO QUIT 

GET DATA UNDER CURSOR 


PUT IT IN PREVIOUS POSITION 
(UNCONDITIONAL) 




(SAVADR), Y CLEAR THE LAST POSITION 

DELTIA TRY TO DELETE A LINE 

PLACRS 

DOLCOL AND RETURN 


NORMAL INSLIN PUTS “l" INTO BIT MAP 
ENTRY POINT FOR C=0 
DO CARRIAGE RETURN <NO~bF-) 


EXTEND 
LMARGN 
COLORS 

CONVRT GET ADDRESS 

ADRESS SET UP T0*4G+FRQM (FROM - CURSOR) 
FRMADR 




TOADR 

ADRESS+1 

CDMAnD* 1 

r m injL/r\ 1 i 

#o 

TOADR+l 
ROWCRS 
#23 
INSLI2 
MGVLIN 

#23 

INSLIl- 
CLRLIN 
DOLCOL 
DOLCOL 
H0LD1 
ROWCRS 
ROWCRS 






j.'** -»■ ..W.I.fc. 







SET UP LOOP COUNTER 




_ — 






CLEAR CURRENT LINE 

COLVERT ROW AND COL TO LOGCOL AND RETURN 
GET BE.G INNING OF LOG LINE vHOLDl > 

SQUEEZE BIT MAP 
PUT CURSOR THERE 


L02GET GET NEXT BIT 


#120 

BITPUT WRITE IT OVER PRESENT BIT 


10—30—78 


DISPLAY HANDLER 


DISPLC 


r 


18EC CO 
I- BEE DO 
F-8F0 AD 
F-8F3 09 
FBF5 BD 


18 

ED 

B4 02 
01 

-B4 02 




F 8F8 A 5 
P8FA 85 
F8FC 20 
F8FF 20 
F902 20 


52 

55 

47 F9 


B7 FB 
20 FB 


{■905 90 D4 
F907 4C DD FB 
F90A -AO -20 — 
F90C 20 D8 FC 
F90F 88 

-F910-F0 FA — 


F912 60 


DELL I 2 


CPY 

BNE 

LDA 

ORA 

STA 

LDA 

STA 

JSR 

JSR 

JSR 


— 




BELLI 


BCC 

JliP 

LDY 

JSR 

DEY 

BPL 


RTS 


#24 

DELL II LOOP 
LQGMAP+2 
#1 


SET LSB 


LMARGN 

COLORS 

CONVRT 

SCR0L1 

LOGGET 


DELLIB 

DOLCOL 

#$20 

CLICK 


BELLI 


DELETE LINE OF DATA USING PART OF SCROLL 
CR NO LF 


TEST NEXT LINE FOR CONTINUATION 
IS IT A NEW LOG LINE? 


NO SO DELETE ANOTHER 
YES SO DOLCOL AND RETURN 






■ . . .. . 










m+m m ~ ■* « . » «. ■ 







? .V v ’T 1 ' 1 "? ’ "-V-'.V-' F,, " , r 7' 


i . i 1 1 i , j. ii j. ) )>FT V- V ' . 1 - 1 . 1 T/ 
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r 


routines 


— r 


DOUELE BYTE DECREMENT OF INDIRECT POINTER 

INCLUDING DB SUBTRACT AND DB DOUBLE DECREMENT 


1913 A9 02 
1915 DO OA 


DBDDEC LDA 
BNE 


#2 

DBSUB 


(UNCONDITIONAL) 


F917 A4 4C 
1-919 30 2B 
L91B AO 00 
F91D *91 64 




F9*F 

1-921 

1-924 

4-926 


A9 m 
8D 9E 02 
A5 4C 
30 I E 


; STORE DATA INDIRECT AND DECREMENT POINTER 
i (PLACED HERE TO SAVE JMP DBDEC AFTER STORE) 
STORE t-DY DSTAT RETURN ON ERROR 

BMI STROK 

LDY #0 

STORE 1 ST A ( ADRESS ) , Y — - — 






1-928 
F92A 
4* 


A5 64 
38 

ED 9E 02 
85 64 
BO 02 
P 932 06 60 


; JMP 

.» 

DBDEC LDA 
DBSUB STA 
LDA 

SMI 


DBDEC DECREMENT AND RETURN 


92B 
F92E 
I 930 


I 934 
f 936 

* FP38 

F93A 
F 93C 


A5 OF 
C5 65 
90 -DC 
DO 06 
A5 OE 


LDA 

SEC 

SBC 

STA 

BCS 

DEC 


#1 

SUBTMP 
DSTAT 
STROK 
ADRESS 

SUBTMP 
ADRESS 
DBSUB 1 
ADRESS+1 


RETURN ON ERROR 


DBSUB 1 




LDA 

CMP 

BOO 


APPMHI+1 MAKE SURE NOTHING EVER OVERWRITES APPMHI 
ADRESS+1 
STROK OK 





F 9 3E - 05 64 
1-940 90 04 
F942 A9 93 
F944 85 40 
1 946 60 


BNE 

LDA 

OMP 


STRERR 

APPMHI 

ADRESS 


ERROR 


BCC STROK 

STRERR LDA #SCRMEM SHOW MEM TOO SMALL FOR SCREEN ERROR 

— STA DSTAT 




STROK 


RTS 







— 




1-947 A5 54 
F 949 48 
F94A A5 55 
P94C 48 
f-94D A 5 56 
48 


* 
i 

i CONVERT ROW/COLUMN CURSOR INTO REAL ADDRESS (FROM SAVMSC ON UP) 


CONVRT 


F950 20 F3 FC 
F953 A 5 54 
F955 85 66 
1-957 A9 00 
1 959 85 67 
P95B A5 66 
1-95D OA 
I-95E 26 67 
F960 85-51 
1-962 A4 67 




LDA 

PHA 

1 H A 
tz L/r*i 

PHA 

LDA 

PHA 

JSR 

LDA 

C TA 

LDA 

STA 

LDA 

ASL 

ROL 

STA 

LDY 


ROWCRS SAVE CURSOR 
COLORS 
COLCRS+1 








PUT 10#R0WCRS INTO MLTTMP 


PUTMSC 
ROWCRS 

MLTTMP 

#0 

MLTTMP +1 

MLTTMP OUIOK X8 
A 

MLTTMP + 1 

HOLD1 (SAVE 2X VALUE) 
MLTTMP+1 
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P964 8C 9F 
P967 OA 
968 26 67 
t 96 A OA 
P96£ 36 67 
F 96D 18 
F 96E 65 51 
F970 85 66 
F972 A5 67 
{974 6D 9F 
F977 85 67 


o; 




F 979 A6 57 
F97B BC 81 FE 
F97E 88 
F97F 30 07 
F981 06 66 
-P983 26 67 


CONVR 1 




F985 4C 7E F9 
P988 BC A5 FE 
P98B A 5 55 
F98D A2 07 
F98F 88 
-P99 £ 30 OA 


convr; 


H0LD2 

A 

MLTTMP+1 

A 

MLTTMP+1 

ADD IN 2X 

H0LD1 

MLTTMP 

MLTTMP+1 

H0LD2 

MLTTMP+1 

D INDEX NOW SHIFT MLTTMP LEFT DHLINE TIMES TO FINISH 
DHLINE, X MULTIPLY 

LOOP N TIMES 

C0NVR2 
MLTTMP 
MLTTMP+1 
CONVR 1 

DIV2TB, X NOW DIVIDE HCRSR TO ACCOUNT FOR PARTIAL BYTES 
COLORS 


C0NVR3 


— — 


LDX 

DEY 

£141 


#7 


* TRICKY * 


{-992 CA 
1993 46 56 
-F995 6A 




{-996 6E A1 02 
f-999 4C 8F F9 
GS 


DEX 

LSR 

ROR 

ROR 

JMP 


TMPLBT SAVE LOW BITS FOR MASK 
C0NVR3 


F99D 18 
F 99E 65 66 
F9AO 85 66 
F9A2 90 02 
F9A4 E6 67 
F9A6 38 












GGNUR5 


CLC 

ADC 

8TA 

BCC 

INC 

sec 


SO V IS ZERO UPON RETURN FROM THIS ROUTINE 

UI -r-rtutn Ann euTCTCn rni r DC rn Ml TTMD 


MLTTMP ADD SHIFTED COLORS TO MLTTMP 
MLTTMP 
C0NVR5 
MLTTMP+1 


* TRICKY * 


F9A7 6E A1 02 
F9AA 18 
F9AB CA 
F9AC 10 F9 
F9AE AE A1 02 
-F9B1 A5 66 


C0NVR6 


TMPLBT SLIDE A '‘1" UP AGAINST LOW BITS (CONTINUE TILL X--1) 


F9B3 18 
F9B4 65 64 
F9B6 85 64 
F9B8 85 5E 
F9BA A 5 67 
E9BC 65 65 
F9 BE 85 65 
F9C0 85 5 F 
P9C2 BD B1 FE 
F9C5 8D AO 02 
F9C8 85 6F 
+9CA 60 
F9CB 85 56 
F9CD 68 
F9C€ 05 55 
F9D0 68 
F9D1 85 54 


AND FINISH SHIFT SO LOW BITS ARE 
C0NVR6 RIGHT JUSTIFIED. 

TMPLBT TMPLBT IS NOW THE INDEX INTO DMASKTB 
MLTTMP PREPARE FOR RETURN— i 

ADRESS 
ADRESS 

OLDADR REMEMBER THIS ADDRESS FOR CURSOR 
MLTTMP+1 

ADRE8S+1 " —* 


STA 

ADRESS+1 

STA 

m n^pRrhi 

frtra 

DMASKTi * 

|STA 

DMASK 

STA 

SHF AMT 



STA 

COLCRS+1 

PLA 


STA— 

COLORS 

PLA 


STA 

ROWCRS 

-RTS 



Moore Bujlnojj Formi, Inc. »v J412T 


DISPLAY HANDLER 


10-30-78 — DISPLC 


INCREMENT CURSOR AND DETECT BOTH END OF LINE AND END OF SCREEN 


! 9D4 

i r~\ rv y 

r TUD 

P9D8 

P9DA 

P9DC 

P9DE 

F9E0 


A9 00 
FV 02 
A9 9B 
85 7D 
E6 63 
E6 55 
DO 02 


INCRSB 

INCRSR 

INCRSC 

INCRSA 


NON-EXTEND ENTRY POINT 


SPECIAL CASE ELIMINATOR 


(INSCHR ENTRY POINT) 




F9E4 A 5 55 
F 9E6 A6 57 
P9E8 DD 8D FE 
F9EB FO OB 
P9ED EO 00 
F9 EF D0 06 ~ 
F9F1 C5 53 
1 9F3 FO 02 
F9F5 BO Ol 
P9F7 60 
P9F8 EO 08 
-F9FAr 90 04 


INCRS2 


#0 

INCRSC 
#*9B 
INSDAT 
LOOCOL 
COLCRS 

INCRS2 DO HIGH BYTE 
COLCRS-*- 1 

COLCRS TEST END OF LINE 
D INDEX 

COLUMN, X TEST TABLED VALUE FOR ALL SCREEN MODES 

INC2A DO CR IF EQUAL 
#0 MODE 0? 

INCRS3 ~ IF NOT* U U 8 T RETURN — 

RMARGN TEST AGAINST RMARGN 
INCRS3 EQUAL IS OK 
INC2A IF GREATER THAN, DO CR 




1-9FC A 5 56 
F9FE FO F7 
FAOG A 5 57 
FA02 DO 30 
FA04 A 5 63 
FAG6-G9-5L 
F AOS 90 OA 
P AOA A5 7D 
PAGC FO 26 
PAOE 20 30 FA 
PAH 4C 77 FA 
PA-T4- 20- 34 FVY 
FA17 A5 54 
P A 1 9 18 
PA1A 69 78 


INCRS3 

INC2A 


D0CR1 


#8 

D0CR1 


CHECK MODE 

NOT 320X1 SO DO IT 


DGCR16 


COLCRS-*"! TEST MSD 

INCRS3 ONLY AT 64 SO DON 'T DO IT 

DINDEX DONT MESS WITH LOGMAP IF NO MODE ZERO 
DOCR 

LOGCOL TEST LINE OVERRUN 

#81 — 

DOCR IB IF LESS THAN 81 IT IS DEFINITELY NOT LU 
INSDAT 

DOCR ONLY DO LOG LINE OVERFLOW IF INSDAT OO 

DOCRWS LOG LINE OVERFLOW IS SPECIAL CASE 

INCRS1 RETURN 

DOCR GET IT OVER WITH 

ROWCRS 

TEST LOGICAL LINE BIT MAP 


P A 1 C 20 25 FB 
PA1F 90 08 
4-A21 A5 70 


P A23 FO 04 
PA25 18 
PA26 20 AS F8 
PA29 4C DD FB 
PA2C A9 00 
PA2E -FO 02 


PA30 A9 9B 
PA32 85 7D 
FA34 20 E4 F€ 
FA37 A9 00 
PA 39 85 56 
FA3B E6 54 
I A3D A6 57 
! A3F AO 18 
P A44 — 24 7B 
PA43 10 05 
I-A45 AO 04 
PA47 9 S 


DOCR 1 A 
NOSCRL 

DOCRWS 

N0SCR1 

DOCR 


D0CR2 


#120 

B I TGET 

DOCR 1 A DONT EXTEND IF OVERRUN IS INTO MIDDLE OF LOG LINE 
INSDAT DONT EXTEND IF INSDAT IS ZERO 
DOCR 1 A (INSCHR SPECIAL CASE) 

INSERT "0" INTO BIT MAP 

INSLIA 

DOLCOL CONVERT ROW AND COL TO LOGCOL AND RETURN 
#0 DOCR WITHOUT SCROLL 

NO SCR 1 (UNCONDITIONAL) 

#$9B DOCR WITH SCROLLING (NORMAL MODE) 

INSDAT 

COLCR PLACE COLCRS AT LEFT EDGE 
#0 

COLCRS+1 

ROWCRS 

DINDEX 
#24 

SWPFLG 

D0CR2A BRANCH IF NORMAL 
#4 


SET UP SCROLL LOOP COUNTER 




PA48 DO 03 


D0CR2B (UNCONDITIONAL) 
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FA4A BD 99 FE 
f A4D CB 54 

FA4F DO 26 
FA51 8C 9D 02 

PA54 8A 
JA55 DO 20 
? A57 AD 7D 
PA59 FO 1C 


FA5B C9 9B 
PA 50 38 
F A5E FO 01 
I A60 18 
PA61 20 AC FB 
f A64 EE BB 02 
FA67 C6 6C 
PA<59 €E 90 02 
FA6C AD B2 02 
FA6F 38 
FA70 10 EF 
FA72 AD 9D 02 
FA75 85 54 
4-A 77 4 C -0D FB 


DOCR2A 

DOCR2B 


DOCR4B 


NOROWS, X GET NO OF ROWS 

ROWCRS 

INCRS1 

H0LD3 

DPNT SCROLL IF MODE <> O 

INCRS1 

INSDAT OR IF INSDAT * O 
I NC RSI 
INSDAT 
#*9B 


INCRSi 


D0CR4B 

SCROLL 

SCRFLG 

BUFSTR 

H0LD3 

LOGMAP 

D0CR4B 

H0LD3 

ROWCRS 

DOLCOL 


IF INSDAT <> *9B THEN ROLL IN A O 
TO EXTEND BOTTOM LOGICAL LINE 


LOOP BACK TO HERE IF >1 SCROLLS 
ROWS MOVE UP SO BUFSTR SHOULD TOO 

FOR PARTIAL LINES, ROLL IN A " 1 " 

AGAIN IF PARTIAL LOGICAL LINE 

PLACE CURSOR AT NEW LINE NEAR THE BOTTOM 


COL VERT ROW AND COL TO LOGCOL AND RETURN 




SUBEND: SUBTRACT ENDPT FROM ROWAC OR COLAC, ( X=0 OR 2) 


FA7A 

PA7B 


38 

B5 


SUBEND 


FA7D 
FA7F 
-FA 84 
FA83 
FA85 


E5 74 
95 70 
71 

E5 75 
95 71 


SEC 

LDA 


ROWAC 


FA Q 7 6>Q 


ENDPT 
ROWAC, X 
ROWAC+1, X 
ENDPT+1 
ROWAC+1 , X 








TWICE AND JMP RETURN 


(ERANGE IS EDITOR ENTRY POINT AND TEST IF EDITOR IS OPEN. 
IF IT ISNT IT OPENS THE EDITOR AND CONTINUES) 


f- ASS AD BF 02 
F A8B C9 04 
PASO FO 07 
F ASF A 5 57 
FA91 FO 03 
r*A 9Q- 20 FO F3 
FA96 A9 27 
FA 98 C5 53 
FA9A BO 02 
FA9C 85 53 
FA9E A6 57 




j - — 

ERANGE 






FA AO BD 99 FE 
FA A3 C5 54 
FAA5 90 2A 
PAA7 FO 28 
FAA9 EO OS 
FAAB DO OA 
PAAD A5 56 
FAAF FO 13 







DINDEX 
RANGE 




IF MODE = 0 
THEN IT IS IN EDITOR MODE AND OK 
IF NOT, OPEN EDITOR 




#39 ***** RANGE CHECK RMARGN ***** SET UP AC 

RMARGN ***** RANGE CHECK RMARGN ***** COMPARE 

RANGES ***** RANGE CHECK RMARGN ***** BRANCH GE 

RMARGN ***** RANGE CHECK RMARGN ***** BAD SO STORE 39 

DINDEX 
NOROWS, X 


ROWCRS 

RNGERR 

RNGERR 

#S 

RANGE 1 


CHECK 


(ERROR IF TABLE. GE. ROWCRS) 




CHECK FOR 320X1 
SPECIAL CASE IT 


COLOR S+l - - 

RNGOK IF HIGH BYTE IS 0, COL IS OK 








Moore Business Forms, Inc. sv 1412T 


FAAF FO 13 


Lv. L/M 

BEQ 
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t 


LABI C9 
FAB3 DO 
FAB 5 FO 
FAB 7 A 5 
PAB9 DO 
FABB BD 
FABE C5 
FACO 90 
FAC 2 FO 
FAC 4 A9 
PAC6 85 
FAC 8 A9 
FAC A A6 
FACC 85 
FACE FO 
FADO 60 


01 

10 

04 

56 

16 

8D FE 
55 
OF 
OD 
01 
4C 
80 
1 1 
11 - 
06 


RANGE 1 
RANGE2 

RNGQK 


CMP 
BNE 
BEQ 
LDA 
BNE 
LDA 
CMP 
BCC 
BEQ 
LDA 
ST A 
LDA 
LDX 
STA 
BEQ 
RTS 


ft 

FAD 1 20 
FAD4 A9 
FAD6 85 
FADS 68 
FAD9 68 
FADA A 5 

i - Anr i r\ 

D6 F7 

8D 

4C 

RNGERR 

RNGER2 

RNGER1 

USR 

LDA 

STA 

PLA 

PLA 

LDA 

DDI 

HOME 

#CRSROR 

DSTAT 

ft 

7B 

SWPFLG 

RETUR3 

SWAPA 

RETUR1 

» 

r nt/o 1 v 

FADE 20 
FAE1 4C 

_ . 

VO 

B9 FC 
34 F6 

RETUR3 

JSR 

JMP 


#1 

RNGERR IF Mi BAD 

RANGE2 IF 1, GO CHECK LOW BYTE 

COLCRS+1 FOR OTHERS, NON-ZERO HIGH BYTE IS BAD 

RNGERR 

COLUMN, X CHECK LOW BYTE 

COLCRS 

RNGERR 

RNGERR 

#SUCCES SET STATUS OK 
DSTAT 

#BRKABT PREPARE BREAK ABORT STATUS 
BRKKEY CHECK BREAK KEY FLAG 
BRKKEY 'CLEAR 7 BREAK 

RNGER2 IF BREAK, QUIT IMMEDIATELY AND RETURN TO CIO 


ON RANGE ERROR, BRING CURSOR BACK 


RESTORE STACK <THIS ROUTINE IS ALWAYS 1 LEVEL 
AWAY FROM RETURN TO CIO) 

IF SWAPPED, SWAP BACK 


T~ 

} 


AND DONT DO RETUR1 
RETURN TO CIO 


GFFCR8: RESTORE OLD DATA UNDER CURSOR SO IT CAN BE MOVED 


FAE4 AO 00 
FAE6 A5 5D 
FAE8 91 5E 
FAEA 60 


OFFCRS 


LDY 

LDA 

STA 

RTS 


#0 

OLDCHR 
(OLDADR), Y 


7 

i 


BITMAP ROUTINES: 


BITCON 

BITROL 

EITSET 

BITOLR 

BITGET 

LOGGET 


PUT MASK IN BITMSK AND INDEX IN X 
POT CARRY INTO BITMAP 

ROL CARRY INTO BOTTOM OF BITMAP (SCROLL) 
SET PROPER BIT 

CLEAR PROPER BIT 

RETURN CARRY SET IF BIT IS THERE 
DO BITGET FOR LOGMAP INSTEAD OF TABMAP 


FAEB 48 
FAEC 29 07 
PAEE T^A 
FAEF BD B9 FE 
FAF2 85 6E 
4*AF4 68 
f AF5 4A 
FAF6 4 A 
PAF7 4A 
FAF8 AA 
FAF9 60 


BITCON 


PHA 

AND 

TAX 

LDA 

STA 

P-LA 

L.SR 

LSR 

LSR 

TAX 

RTS 


#7 

MASKTB, X 
BITMSK 

A 
A 
A 


GET MASK 


PROCESS INDEX 





DISPLAY HANDLER 


10-30-78 


DISPLC 



{ AFA 

2E 

2E 

2E 

60 

B4 02 

B1TROL 

ROL 

ROL 

ROL 

RTS 

LOGMAP+2 

LOGMAP+1 

LOGMAP 


1 BOO 
IB03 

B2 

02 



,‘B0 4 

90 

OC 


BITPUT 

BCC 

BITCLR , 


FB06 

FB09 

20 

BD 

EB 

A3 

FA 

02 

BITSET 

JSR 

LDA 

BITCON 
TABMAP, X 


OTHERWISE FALL THROUGH TO BITSET AND RETURN 


f-BOE 9D A3 02 
} - B 1 1 60 


ORA BITMSK 

TABMAP, X 


! • B 1 2 20 EB FA 
IB15 A5 6E 
FBI 7 49 FF 


BITCLR 


STA 

RTS 

JSR 

LDA 

FOR 






BITCON 

BITMSK 

#SFF~~ 


F B 1 9 3D A3 02 
IB 1C 9D A3 02 
FB1F 60 


AND 

STA 

RTS 


TABMAP 

TABMAP 


5 m > 

, x 

, X 

— — — _ _ 


1 B20 A5 54 
-FB22 18 


FB23 69 78 
FB25 20 EB FA 
FB28 18 
PB29 BD A3 02 
I-B2C 25 6E 
FB2E FO 01 
PB30 38 
I B31 60 


LOGGET LDA 
-LG 1 GET- CLC 
L02GET ADC 
BITGET JSR 
OL.C 


ROWCRS 


BITGE1 


LDA 

AND 

BEG 

SEC 

RTS 


# 1 20 -<■ 
BITCON 


TABMAP, X 

BITMSK 

BITGE1 


_ - — 


— r ~'"" 


INATAC: INTERNAL ( CHAR > TO ATASC 1 1 ( ATACHR ) CONVERSION 




IB 32 AD FA 02 

INATAC 

EDA 

CHAR 


1 B35 A4 57 


LDY 

DINDEX 

IF GRAPHICS MODES 

f*B37 CO 03 


CPY 

#3 


PB39 BO OF 


BCS 

INATA1 

THEN DONT CHANGE CHAR 

FB3B 2A 


ROL 

A 


FB3C 2A 


ROL 

A 


f B3D 2A 


ROL 

A 


I-B3E 2A 


ROL 

A 


FB3F 29 03 


AND 

#3 


T-B41 A A 


TAX 


l ■ .P.. .1 I 1 '■ ■ "" — " ■ ■ ' 

FB42 AD FA 02 


LDA 

CHAR 


1 B45 29 9 F 


AND 

#S9F 


FB47 ID FA FE 


ORA 

INTATA, X 


1 BAA 8D FB 02 

INATA1 

STA 

ATACHR 


f BAD 60 


RTS 




HOVLIN HOVE 40 BYTES 

A T FRMADR TO TO A DR SAVING OLD TOADR 



DATA 

IN THE LINBUF THEN HAKE NEXT FRMADR 



BE AT 

LINBUF FOR 

NEXT TRANSFER & T0ADR«T0ADR+40 

84E A9 02 

MOVLIN 

LDA 

4LINBUF/256 SET UP ADRESS=LINBUF=S247 




t-ivn 


ffLiIM«Uh/256 


SET UP ADRESS=LINBUF=*247 


in SRtAV HANDLER — 10-30-78 — DISPLC 








LB 50 85 65 
LB 52 A9 47 
LB54 85 64 
LB 56 AO 27 
LB 58 B1 66 
LB5A 85 50 
LB5C B1 68 
LB5E 91 66 
L B60 A 5 50 
LB62 91 64 
LB64 88 
LB65 10 FI 
LB 67 A5 65 
LB69 85 69 
LB6B A5 64 
LB6D 85 68 
LB6F 18 
LB70 A5 66 
LB 72 69 28 
LB74 85 66 
LB76 90 02 
LB 78 E6 67 
LB7A 60 


MGVLTi ~LDA 
STA 
LDA 
STA 
LDA 
STA 
DEV 
BPL 
LDA 
STA 


LDA 
ADC 
STA 
BCC 
INC 

MOVLI2- RTS 


ADRESS+1 
#L INBUF 
ADRESS 
#39 

< TOADR Y, Y 
TMPCHR 

( FRMADR ) , Y 

< TOADR ) , Y 
TMPCHR 
(ADRESS), Y 

M0VLI1 
ADRESS+T 
FRMADR-*- 1 
ADRESS 
FRMADR 


TOADR 
#40 
TOADR 
M0VLI2 
TOADR+1 






SAVE TO DATA 
STORE DATA 


SET UP FRMADR =L_AST LINE 



0 TO TOADR 









; EXTEND: EXTEND BIT MAP FROM ROWCRS (EXTEND LOGICAL LINE 


RB7B 08- 
LB7C AO 17 
LB7E 98 
HB7 F 20 22 FB 
FB82 08 
LB 83 98 
4-B84 
FB85 69 79 
LB 87 28 
4B88 20 04 F8 
LB8B 88 
LB8C 30 04 
54 

LB90 BO EC 
B92 A5 54 

f&94 18 

LB95 69 78 

LB97 28 

FB 90 40 04 -FB 


LDY 

EXTEN1 TYA 
USR 


SAVE CARRY 






EXTEN3 DEY 
BMI 
CRY 




LBRB A 5 52 
LB9D 85 55 
LB9F 20 47 F9 
LBA2 AO 27 
LBA4 A9 00 
LBA6 91 64 

i- RAfl QQ 

I D M O OO 

LBA9 10 FB 



CLRLIN: CLEAR LINE CURSOR IS ON 



CLRLI1 STA 
DEV 
BPL 


LMARGN 
COLCRS 
CONVRT 
#39 
#0 

(ADRESS), Y 






CLRLI1 





/BE A BO OC 
l-BEC A5 63 
FBEE 18 


TBEF 69 28 
!BF 1 85 63 
i BF3 CS 51 


BCS 

LDA 

CLC 

ADC 

STA 

DEC 


#40 

LOGCOL 


FBF5 4C E5 FB 
! BF8 18 
4-BF9 A 5 63 
1 BFB 65 55 
I BFD 85 63 


HOLD1 UP ONE LINE 


VAT" LJIMiL t_ i WtL 


D0LC01 


D0LC02 


ADD IN COLORS 


LOGCOL 




COLORS 

LOGCOL 


L. DTC 

r or r ow 


-RTS 


DOBUFC 


COMPUTE BUFFER COUNT AS THE NUMBER OF BYTES FROM 

BUFSTR TO END OF LOGICAL LINE WITH TRAILING SPACES REMOVED 


r# 


f COO 20 9D FC 


DOBUFC JSR 


PHACRS 


DISPLAY HANDLER 


10-30-78 


DISPLC 




Wi I M IKAILi Ntf hftnuvtlj 






COO 20 9D FC 


DOBUFC JSR 


PHACRS 


DISPLAY HANDLER — 10-30-78 — DISPLC 


0 

0 

ft 

ft 

ft 


t 


F-C03 A 5 63 
PC05 48 
PC 06 A5 6C 
PC08 85 54 


PCOC 
{•COE 
FO 10 


FC 12 


s. 


C 14 


85 

A9 

85 

A2 

A5 


55 

01 

6B 

17 

7B 


FC 18 
FC 1 A 


lO 02 
A2 03 
E4 54 


D0BUF1 


DOB 1 


PC1€ DO OB 
PC1E A5 55 


PC20 




PC24 


C5 53 
DO 05 
E6 6B 


DGBU1A 


LDA 

PHA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDX 

LDA 

BPL 

LDX 

CPX 

BNE 

LDA 

CMP 

BNE 

INC 

JMP 

JSR 

INC 

LDA 







FC32 DO 
PC 34 C6 
FG3A 
FC39 20 
FC3C DO 
F C3E C 6 
FC40 A 5 
FC42 C5 
PG44- FO 
PC46 20 
FC49 A5 
4-G4B-G5 
FC4D DO 
LC4F C6 
FG51 A 5 
PC 53 DO 
PC 55 68 
T-€5dr 
PC 58 
PC5B 


A3 
AS FC 


LOGCOL 




START 


NORMAL 

IF SWAPPED, ROW 3 IS THE LAST LINE ON SCREEN 


TEST IF CRSR IS AT LAST SCREEN POSITION 



BUFSTR 
ROWCRS 
BUFSTR+1 
COLORS 
#1 

BUFCNT 
#23 

SWPFLG 
DOB 1 
#3 

ROWCRS 
- 08 BU 1 A 
COLORS 
RMARGN 
D0BU1A 

BUFCNT YES SO FAKE INCRSR TO AVOID SCROLLING 
D0BUF2 

TNCRSE 

BUFCNT 
LOGCOL 
LMARGN 




D0BUF1 NOT YET EOL 
ROWCRS BACK UP ONE INCRSR 
CRSRtdF- 

GETPLT TEST CURRENT COLUMN FOR NON-ZERO DATA 
D0BUF4 QUIT IF NON-ZERO 
BUFCNT DECREMENT COUNTER 
LOGCOL BEGINNING OF LOGICAL LINE YET? 

LMARGN 

D0BUF4 YES, SO QUIT 

CRSRLF BACK UP CURSOR 

COLORS IF LOGCOL=RMARGN, GO UP 1 ROW 

DMAPAM , , _ . _ 

lAf inmjn 

D0BUF3 
ROWCRS 

BUFCNT 

D0BUF2 LOOP UNLESS BUFCNT JUST WENT TO ZERG 


LOGCOL 

PLACRS 


STRBEG: MOVE BUFSTR TO BEGINNING OF LOGICAL LINE. 


PG5C 20 DD FB 


STRBEG 


FC5F A5 51 
PC61 85 6C 
4-CA3 A5 52 


PC65 85 6D 
PC67 60 


JSR 

LDA 

STA 

LDA 

STA 

RTS 


DOLCOL USE DOLCOL TO POINT H0L.D1 AT BOL 

H0LD1 

BUFSTR 

LMARGN 

BUFSTR+1 


Woore Builneit Form 


f 


DISPLAY HANDLER — 10-30-78 — DISPLC 

IM: TIME TO DELETE A LINE IF IT IS EMPTY AND AN EXTENSION 


FC68 A5 63 
F-C6A C5 52 
FC6C DO 02 
PC6E C6 54 
FC70 20 DD FB 
PC 73 A5 63 
PC75 C5 52 
PC77 FO 13 
PC 7 9 20 47 F9 
PC7C A5 53 
PC7E 38 
PC7F €5 52 


PCS1 A8 
PC 82 B1 64 
PC 84 DO 06 
PC86 88 
f C87 10 F9 
PC89 40 DB F8 
PC8C 60 


i DELT 

-+ 

DELT I A 


DELT IB 
DELT I M 


DELT I 1 


DELT I 2 
DELT I 3 


LOGCOL IF LOGCOLOLMARGN 

LMARGN THEN DONT MOVE UP ONE 

DELT IB LINE BEFORE TESTING DELTIM 

ROWCRS 

DOLCOL 

LOGCOL TEST FOR EXTENSION 

LMARGN 

DELTI3 NO 

CONVRT 

RMARGN SET UP COUNT 

LMARGN 

(ADRESS) , Y 

DELT I 3 FOUND A NON-O SO QUIT AND RETURN 
DELTI 1 

DELL IB DELETE A LINE AND RETURN 


■ 


i TSTCTL: SEARCH CNTRLS TABLE TO SEE IF AT AC HR IS A CNTL CHAR 


FC8D A2 2D 
PC8F BD C6 FE 
1C 92 CO-- F B. 02 


TSTCTL LDX 
TSTCT1 LDA 
CMP 


#45 PREPARE TO SEARCH TABLE 

CNTRLS, X 

- AT AG m - 


PC 95 FO 05 
PC 97 CA 
PC9S CA 
PC 99 CA 
PC9A 10 F3 
-PC9C 60- - 




BEQ TSTCT2 


DEX 


DEX 

DEX 

BPL 

RTS 


TSTCT1 


-r — — 

; PUSH 


ROWCRS, COLORS AND COLCRS+1 








PC9D A2 02 
PC9F B5 54 
PCA1 9D BS 
PCA4 CA 
PCA5 10 FS 
PCA7 60 


02 


■PHACRS 

PHACR1 


LDX 

#2 

LDA 

ROWCRS, X 

STA 

TMPROW, X 

DEX 


BPL 

PHACR1 

RTS 









FCA8 A2 02 
PC A A BD B8 02 
PCAD 95 54 
PCAF CA 
FCBO 10 F8 
PCB2 60 


i PULL 

PLACRS 

PLACR1 


COLCRS+1, COLORS AND ROWCRS 

LDX #2 

LDA TMPROW, X 

STA ROWCRS, X 

DEX 

BPL PLACR1 










SWAP: IF MIXED MODE, SWAP TEXT CURSORS WITH REGULAR CURSORS 






Moor* Builnaii Form, Inc. ov I4I1T 


I 


SWAP IF MIXED MODE# SWAP TEXT CURSORS WITH REGULAR CURSORS 


C 


DISPLAY HANDLER 


10-30-78 


DISPLC 



# 


FCB3 

20 

B9 


SWAP 

JSR 

FCB6 

4C 

34 

F6 


JMP 

FCB9 

AD 

BF 

02 

SWAPA 

LDA 

PCBC 

C9 

18 



CMP 

FCBE 

FO 

17 



BEQ 

1 CCO 

A2 

OB 



LDX 

PCC2 

B5 

54 


SWAP 1 

LDA 

FCC4 

48 




PHA 

FCC5 

BD 

90 

02 


LDA 

r'vv^cj 

95 

54 



STA 

f-CCA 

68 




PLA 

f CCB 

9D 

90 

02 


STA 

FCCE 

CA 




DEX 

FCCF 

10 

FI 



BPL 

PCD1 

A5 

7B 



LDA 

A r\ r— r— 



EOR 

rLuj 4V rr 



FCD5 

85 

7B 



STA 

FCD7 

60 



SWAP3 

RTS 


SWAP A THIS ENTRY POINT DOES RETUR1 

RETUR1 

BOTSCR 

#24 

SWAP3 
#1 1 

ROWCRSr X 

TXTROW, X 
ROWCRSr X 

TXTROW, X 

SWAP 1 
SWPFLG 

#*FF 

SWPFLG 



; CLICK: MAKE CLICK THROUGH KEYBOARD SPEAKER 


r 


! CD8 A2 7F 

CLICK 

LDX 

#*7F 

f-CDA 8E IF DO 

CLICK1 

STX 

CONSOL 

PCEH> BE OA D4 


STX 

WSYNC 

FCEO CA 


DEX 


FCE1 10 F7 


BPL 

CLICK1 

145JCT1 AA 

rt/trJ W * 


RTS 



PCE4 A9 00 

PGE6 A6 7B 

F-CE8 DO 04 
FCEA A6 57 
tCEO DO 02 
r-CEE A5 52 
FCFO 85 55 
-f-0F2 60— 


-> COLCR: PUTS EITHER O 


ON MODE AND SWPFLG 


COLOR LDA 

to* 

BNE 

LDX 

rjKjtr 

t/TXC. 

COLOR 1 LDA 
C0LCR2 STA 

RTS- 


#0 

CLJOCi H 

□wrrLb 

COLCRl 

DINDEX 

C0LCR2 

LMARGN 

COLORS 


r PUTMSCr PUT SAVMSC INTO ADRESS 






f-CF3 A5 58 PUTMSC LDA SAVMSC SET UP ADDRESS 

F0F5 85 64 STA ADRESS 

l CF7 A5 59 LDA SAVMSC+1 

FCF9 85 65 STA ADRESS+1 

f-CFB 60 RTS 



9 
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C 


qto d C-j Co uci ;S 


PCFC A2 GO 


FCFE 

f'-DOO 

F£X>2 

FD04 

PD06 

FDG8 


DRAW 




I." LINE FR0M 0LDR0W ' OLDCOL TO (NFUROWi HLUCOLj 

(IHE AL MILLER METHOD FROM BASKETBALL) 

-' to . 

lda iccomz 

CMP #$H 

BEG) — — DRAWA 
CMP #$12 

BEQ DRAWB 


TEST COMMAND: $11=DRAW $12=FILL 


LDOA 
f DOB 
i-BOC 
l DOF 
FD11 
FD13 


TEST 
YES 

#NVALH> NO, 


FILL 

SO RETURN INVALID COMMAND 


DRAWB 

DRAWA 


3 — 

L 

V 




~ 


FD1B A9 
FD1D 85 
-r'-D- IF— S5- 
FD21 
FD22 

T 1 /C^t 

FD26 85 
FD2S BO 
FD2A A 9 


FILFLG 
ROWCRS 
NEWROW 

y-'ni roc 
vuLtna 

NEWCOL 

COLCRS+1 

NEWCOL+1 

#1 

ROWINC SET 


PUT CURSOR INTO NEWROW, NEWCOL 




K) E.UO Col «. COLXK^S. 


38 
A5 60 


« W- 

LDA 
SBC 


NEWROW 

GLDROW 


UP INITIAL DIRECTIONS 






DETERMINE 


DELTA ROW 






FD2C 

FD2E 

FD30 

FD32 

FD33 




STA DELTAR 

BCS DRAW1 

-LDA #$FF 

STA 


fc&loX NC } — CoLJtOC^- I 

M £Uj E-ioo -- o Lfofc op 


FD37 3E 
FD38 A 5 
FD3A E5 
ID3C 85 
ID3E A 5 
FD40 E5 
f-D42 85 
I D44 BO 
FD4A A9 
FD48 85 
f D4A A5 


DRAW1 


LDA 

EOR 

CLC 

ADC 

STA 


— - 

ROWINC 
DELTAR 
#$FF 

#1 


DO DIRECTION AND ABSOLUTE 
BORROW WAS ATTEMPTED 


r: F < 4> 

value CbcrfVfc ; =; 

Rou>xmc * - — I 


NEWCOL 

OLDCOL 

DELTAC 

NEWCOL+1 

OLDCOL+1 


— r — ? 




NOW 


DELTA COLUMN 




De-CDVc M&WC6L- t> L.t> col 


TWO-BYTE QUANTITY 


DELTAC+1 

DRAW2 

#*FF 

COLINC 

DELTAC 


; D4C 49 FI 


FOR 

#*FF 

1 D4E 85 77 


STA 

DELTAC 

ID50A5 78 


LDA 

DELTAC+1 

ID52 49 FF 


FOR 

#*FF 

f*D54 85 78 


STA 

DELTAC+1 

FD 56 E6 77 


INC 

DELTAC 

PD58 DO 02 


BNE- 

DR AW2 

1 D5A E6 78 


INC 

DELTAC+1 

I-D5C A2 02 

DRAW2 

LDX 

#2. 

FD5E AO 00 


4=0¥-~ 

#o 

f DAO 84 73 


STY 

COLAC+1 

f D62 98 

DRAW3A 

TYA 


FDA3 --95 70 


6TA 

ROWAC / X 

f D65 B5 5A 


LDA 

OLDROW, X 


DIRECTION AND ABSOLUTE VAU 
BORROW WAS ATTEMPTED 
SET DIRECTION = LEFT 

DELTAC •=- i DELT AC » 


c. ^ t He m 


i>€^TJVC - b&LX frC. 

COLXnIC - - l 


ADD ONE FOR TWOS COMPLEMENT 




ZERO RAM FOR DRAW LOOP 


fgousfr c 

COLPt c 


4- £>63 95 70 
FD65 B5 5A 


STA 

LDA 


ROWAC » X 
OL.DROW, X 


COL-h C 




f 


/ - . , ,L 


! > 1 441 AY HANDLER 


f D67 95 54 
4D69 CA 
FD 6 A 10 F 6 
FD 6 C A5 77 


10-30-78 — DISPLC 


STA 

DEX 

BPL 

LDA 

STA 

STA 


-V 


FD 6 E ES 
4B6F AS 
FD70 A 5 
FD72 85 


ti 



ROWCRS, X 

DRAW3A 
DELTAC 
COUNTR 
-ENDEl. 


78 

7F 


FAY 

LDA 

STA 


DELTAC+1 
COUNTRY 1 


FIND 
(P 

MAKE ft! 


CROW OR COL) 

(PREPARE COUNTR AND ENDPT) 


5 


RcAaICiC^ 

CoC Cl^ 'S r . ~ OL-T jclo* — 


CoumtR. ',= C. 0€cr« C s IjCtTt'V.i: i 

f *, **■ COUKJTI^ 


« . 

4B74 

85 

7 5 — ... — — - — • 

f— STA 

ENDPT+1 


FD76 

DO 

OB 

BNE 

DRAW3 


PD 78 

A5 

77 

LDA 

DELTAC 



4D7A -C5 
FD7C BO 
FD7E A 5 

rrvn/v An. 

lUoU 

f- DS2 AS 
FD83 98 
4B84 85 
FD 86 85 
F D 8 S 48 
-4B89 




« D 8 B 4A 
l D 8 C 68 
4D8D 6 A- 
FD 8 E 95 
FD90 A5 
-4092 05 



■ p STA 


DRAW4A 


LDA 

ORA 




FD94 DO 03 
FD96 4C 42 FE 
4B99 48 
1D9A A5 70 
JD9C 65 76 
4B9E 85 70 


BNE 

JMP 

DRAW1 4 CLC 
LDA 
ADC 

OTA 

w 




P DAO 90 02 
PDA2 E 6 71 
P8A4 AS 74 
FDA 6 C5 75 
FDA 8 90 14 
- FDA A BO 06 
FDAC A5 70 
J-DAE C5 74 
FBB0 90 OC 
FDB2 18 
FDB3 A5 54 

-4085 65 79 

FDB7 85 54 
4DB9 A2 00 
4 DBB 20 7 A FA 
FDBE 18 
FDBF A5 72 
4004 65 77 
PDC3 85 72 
1 DCS A5 73 
4007 65 78 
r DC9 85 73 
} DCB C5 75 
4000-90-27 
f DCF DO 06 


BCC 

INC 

— DRAWS LDA 

CMP 

BCC 

— 


LDA 

CMP 

BCC 

DRAW5A CLC 
LDA 
ADC 
STA 
LDX 
JSR 

DRAW 6 CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
CMP 
BCC 
BNE 


AUTOMATICALLY LARGER IF MSD>0 


LOW COL >LOW ROW? 
YES 


DELTAR 
DRAW3 
DELTAR 

sd — 

PUT IN INITIAL CONDITIONS 

COUNTR 

ENQPt 

SAVE AC 

ENDPT+1 PUT LSB OF 
A ' INTO CARRY 

RESTORE AC 

A ROR THE 9 BIT A rnn 

ROWAC; X 


IF l>Cu r,c_ > 

R.6oof\c / - 2 . 

£LSe 

csufto : =• EKfofir /t. 


XOUNTR 
COUNTR+1 


TEST ZERO 


DRAWU IF COUNTER IS ZERO; LEAVE DRAW 
DRAW10 


ADD ROW TO ROWAC (PLOT LOOP) 


ROWAC 

DELTAR 

QnLiAr* 

Ruwnv 

DRAWS 

ROWAC+1 

ROWAC +1 

ENDPT+1 

DRAW 6 

DRAW5A 

ROWAC 

ENDPT 

DRAW 6 

ROWCRS 
ROW INC 
ROWCRS 
#0 

SUBEND 


COLAC 

DELTAC 

COLAC 

CGLAC+1 

DELTAC+1 

COLAC+1 

ENDPT+1 

DRAWS 

DRAW 6 A 


XT*- Counts ~ dj > t £xxt 


RoUifVO / - ^ouoAC -4- 


COMPARE ROW TO ENDPOINT 


JOE 


IF HIGH BYTE OF ROW IS . LT. HIGH 
BYTE OF ENDPT; BLT TO COLUMN 








LOW BYTE 
ALSO BLT 

GE SO MOVE POINT 






AND SUBTRACT ENDPT FROM ROWAC cioU p i ^ , _ C 6 LA.C+ t>£C lAC 


DO SAME FOR COLUMN (DOUBLE BYTE ADD) 

ADD 


COMPARE HIGH BYTE 


IP c 0U\c EMbPi TASlA 

CoLX£- S» f » 4* C< 3 C ’ J 

~~ CoCft t - Coc ftc- - 





Bujlnojj Form 


DISPLAY HANDLER — 10-30-78 — 


DISPLC 


PDDl A5 72 
HDD3 05 74 
FDD 5 90 IF 
} DD7 24 7 A 
FDD 9 lO 10 


LDDB C 6 55 
F DDD A 5 55 
HDDF €9 FF 
LDE1 DO OE 
F DE3 A 5 56 
POE S FO OA 


FDE7 C6 56 
f DE9 10 06 


FDED 

f-DEF 


PDF1 
f DF3 
FDF6 


DO 02 
E6 56 
42 -02 


20 7 A FA 
20 96 FA 
FBF9--20--EG- F5 
AD B7 02 


LDA 

CMP 

BCC 

DRAW6A BIT 

■ ,,,,, . DDI 

tJrL. 

DEC 

LDA 

CMP 

BNE 

LDA 

tacrn 

DEC 

BPL 

DRAW6B INC 
BNE 
INC 

BRAW7 T.DX 
JSR 

DRAWS JSR~~ 
JSR 


FDFC 
ID FF 


FO 2F 


4- EOl 20- 90 FC 




FE04 AD FB 02 
FE07 8D BC 02 
-FEOA A5 $4 
FEOC 48 
i-EOD 20 DC F9 
PE1G 68 


FE1 1 85 54 
FE13 20 96 FA 
LEI 6 20 A2 F5 
I El 9 DO OC 
FE1B AD FD 02 



L- E1E 8D F ~B~ 02 

FE21 20 EO F5 
f*E24 4C OA FE 
— -FE27 AD BC 02 
FE2A 8D FB 02 
FE2D 20 A8 FC 
PESO 38 - 

FE 31 A5 7E 
FE33 E9 01 
P€35 85 7E 
hE37 A5 7F 
FE39 E9 00 

FS38 7F 

FE 3D 30 03 
FE3F 4C 90 FD 
FE42 4C 34 F6 




LDA 

BEQ 

JSR 


DRAW8C 


LDA 

PHA 

JSR 

PLA 

STA 

JSR 

JSR 

BNE 

LDA 

STA - 


DO DOUBLE BYTE DECREMENT 


DONT DEC IF ZERO 


JSR 

JMP 

DRAW8B FEDA 

iSJA 

JSR 

DRAW9 - SEC 


DR AW lO 


BMI 

JMP 

JMP 


COLAC COMPARE LOW BYTE 

ENDPT 
DRAW8 

COL INC + OR - ? 

BRAW6B - — * , , — __ 

COLCRS 
COLCRS 
#*FF 
DRAW7 
C0LCRS+ 1 
DRAW7 
COLCRS+i 

DR AW7 ( UNCOND I T I ONAL ) 

COLCRS DO DOUBLE BYTE INCREMENT 

DRAW7 
COLCRS+1 
#2 

SUBEND 
RANGE 
GUTPLT 
FILFL G 
DRAW9 


AND SUBTRACT ENDPT FROM COLAC 


i 

— ... — ; — - — 

pi riT DOT MX — __ — 


— 


PLOT POINT 
TEST RIGHT FILL 


, — . 


PHACRS 
AT AC I 
HOLD'' 

ROWCRS - SAVE ROW IN CASE OF CO 




■ ..... 


— 


D m.i t Kt r- ACM- f-irr n o 




INCRSA POSITION CURSOR ONE PAST DOT 


ROWCRS 

RANGE 

GETPLT 


RESTORE ROWCRS 










GET DATA 


— 1 




DRAW8B STOP IF NON-ZERO DATA IS ENCOUNTERED 
FILDAT FILL DATA 
ATACHR 

OUTPLT DRAW IT 
DRAW8A LOOP 
H0LD4 - 
ATACHR 
PLACRS 

COUNTR 
#1 

COUNTR 
COUNTR+1 
#0 

COUNTR +4 

DRAW 10 
DRAW4A 
RETUR 1 


DO DOUBLE BYTE SUBTRACT 


Coutj yfe- { — Cm jtfcjg.g r 


-t 


l 


sore Butinesi Formi, 


D1UPI AY HANDLER — 10-30-78 — DISPLC 


FE45 18 10 OA 
IE48 OA 10 1C 
f E4B 34 64 C4 
FE4E C4 04 C 4 


i TABLES 

I 

MEMORY ALLOCATION (# C& UloCfcS Jk ^4> (o/-^S ^ 

' 

ALOCAT BYTE 24, 16, 10, 10, 16, 28, 52, 100, 196, 196, 196, 196 


F-E51 17 
F-t5* 1-7 
FE57 5F 
FE5A 61 
FE5D 13 
F-E60 13 
IE63 4F 
FE66 41 


17 OB 
2F 2F 
5F 61 
61 61 
1 3 OR 
27 27 
4F 41 
44-44- 


-f NUMBER OF DISPLAY LIST ENTRIES 

I 

NUMDLE . BYTE 


23, 23, 11, 23 , 47, 47, 95, 95, 97, 97 , 97, 97 


MXOMDE . BYTE 19, 19, 9, 19, 39, 39, 79, 79, 65, 65, 65, 65 


mAVj 4^‘S v\oovut %e<r X Z. C<*pcu»A Case) 


< EXTENSION OF NUMDLE) 

5*64, scre-e^vi-* orcAx^s 


LE69 02 06 07 
F E6C 08 09 OA 
P£6F OB OD OF 
FE72 OF OF OF 


ANTIC CODE FROM INTERNAL MODE CONVERSION TABLE 


INTERNAL 


ANTIC CODE 


DESCRIPTION 


-0 , — * 

1 

2 

-■3--- 

—2— 

6 

7 

8- 

40X2X8 

20X5X8 

20X5X16 

CHARACTERS 
11 11 

it n 

GRAPUTrQ 

w 

4 

9 

*T w A tA D 

80X2X4 

WfvrTH 'F t X 
li it 

5 

A 

80X4X4 

it it 

—6 — — — — 

-B — 

46x0X2X2 

Ull 


7 

D 

160X4X2 

M H 

8 

F 

320X2X1 

II II 

9 . 

SAME 

AS 8 BUT GTI A 'LUM 

' MODE 


SAME AS 8 BUT GTI A 'COL/LUM REGISTER ' MODE 
SAME AS 8 BUT GTI A 'COLOR' MODE 


ANCONV .BYTE 2, 6, 7, 8, 9, $A, $B, $D, $F, $F, $F, $F ZEROS FOR RANGE TEST IN PAGETB 


FE75 00 00 00 
FE78 00 00 00 
4-E7B OG 0 4 01 
FE7E 01 01 01 


, PAGE TABLE TELLS WHICH DISPLAY LISTS ARE IN DANGER OF 
; CROSSING A 256 BYTE PAGE BOUNDARY 


-i 

PAGETB . BYTE 


0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 1 , 1 


THIS IS THE NUMBER OF LEFT SHIFTS NEEDED TO MULTIPLY 
COLORS BY 10,20, OR 40. <R0WCRS*10> / <2#*DHLINE) 


I E81 02 01 01 


DHL I NE . BYTE 


2, 1, 1,0,0, 1, 1,2*2, 2, 2, 2 


Moore Bu.tno., F orml 


D1 {»f*L AY HANDLER 10-30-78 — DISPLC 


FE84 

00 

00 

01 

FE87 


02 

02 

FE8A 

02 

02 

02 


HE8D 

28 

14 

14 

t E90 

28 

50 

50 

f E93 

AO 

AO 

40 

+ E96 

50 

50 50 


i COLUMN: NUMBER OF COLUMNS 

i 

COLUMN BYTE 40.20,20,40,00,80,160,160,64,80,80,80 


MODE 8 IS SPECIAL CASE 


; NOROWS: NUMBER OF ROWS 


HE 99 18 18- QC 
f E9C 18 30 30 
IE9F 60 60 CO 
FEA2 CO CO CO 


-BYTE 24, 24, 12, 24, 48, 48, 96, 96, 192, 192, 192, 192 


DIV2TB: HOW MANY RIGHT SHIFTS FOR HCRSR FOR PARTIAL BYTE MODES 





PE B 9 80 40 20 
FEBC 10 08 04 
4 TE-BF 02 01 



— . — — , — „ 


— — — tt 








i CNTRLS: CONTROL CODES AND THEIR DISPLACEMENTS INTO THE 


, 








CONTROL CHARACTER PROCESSORS 


f EC 6 IB 
PEC? ?<? 4=-7 
PEC 9 1 C 


CNTRLS 


. BYTE 
. WORD 


. BYTE 


*1B 

c. Hrti 

*1C 







- .., r 


DISPLAY HANDLER — 10-30-78 — DISPLC 



o Business Forms, Inc. sv M12T 


DISPLAY HANDLER — 10-30-78 — DISPLC 


T 


PEC A 
FECC 
{ ECD 
!-ECF 
FEBO 
LED2 
FED3 
FE05 
FED6 
PED8 
~FED9 
,'EDB 
FEDC 
FEDE 
f-EDF 
f* EE1 
FEES 
PEE4 
FEES 
-FEE 7 
PEE8 
PEEA 
FEES- 


AA F7 
7B 

B9 F7 
7E 


PEED 

PEEE 

PEF1 

PEF3 

FEF4 


. WORD 
.BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
WORD 
BYTE 
WORD 
BYTE 
WORD 
BYTE 
WORD 
BYTE 
WORD 
BYTE 
WORD 
BYTE 
WORD 


CRSRUP 

$1D 

CRSRDN 

$1E 

CRSRLF 

$1F 

CRSRRT 

$7D 

CLRSCR 

$7E 

BS 

$7F 

TAB 

$9B 

DOCRWS 

$9C 

DELL IN 

$9D 

INSLIN 

$9E 

CLRTAB 

$9F 

SETTAB 

$FD 

BELL 

$FE 

DELCHR 

$FF 

INSOHR 


PEF6 40 00 20 
FEF9 60 


> A TAINT: AT ASC T TO INTERNAL TABLE 

i 

ATAINT . BYTE $40, $00, $20, $60 


EFA 20 40 00 
FEED 60 


PEFE 6C 6 A 3B 
FFOT 80 SO 6B 
FF04 2B 2A 
f~F06 6F 80 70 
FF09 70 SB- 69 
PFOC 2D 3D 

PFOE 76 SO 63 
FF 11 80 80 62 
FF14 78 7 A 
PF16-34 80 33 


P F 1 9 36 IB 35 


7 INTATA: INTERNAL TO AT ASC I TABLE 

i 

INTATA . BYTE $20, $40, $00, $60 

? 

i 

^-FvT4SGT-~-AT4SOTT-OSNV^ m — , 

/ 

ATASCI BYTE $6C, $6A, $3B, $80, $80, $6B, $2B, $2A LOWER CASE 

. BYTE $6F, $80, $70, $75, $9B, $69, $2D, $3D 

. BYTE $76, $80, $63, $80, $80, $62, $78, $7A 

BYTE $34, $80, $33, $36,^1B, $35? $32, $31 - - - 


6* i XNVrt LXT> CobS 

e \ * M 
&2 5 caps 

8 3= JrtiFT-cftfs 
3 ; ctRl- cRPS 

8$£ £oF 


Woore Builnaii Form,, 


DISPLAY HANDLER — 10-30-78 — DISPLC 


PF1C 32 31 

PF1E 2C 20 2E 
FF21 6E 80 6D 
FF24 2F 81 
PF26 72 80 65 
F F 29 79 7F 74 
FF2C 77 74 


BYTE $2C, *20, *2E, $6E, $80, $6D, $2F, $81 


BYTE $72, $80, $65, $79, $7F, $74, $77, $71 


PF2E 39 80 30 
-PF31 37 7E 38 


FF 34 3C 3E 
FF36 66 68 64 
F F39 80 82- 67 
FF3C 73 61 


BYTE $39, $80, $30, $37, $7E, $38, $3C, $3E 


BYTE $66, $68, $64, $80, $82, $67, $73, $61 


FF3E 4C 4A 3 A 
FF41 80 80 4B 

FF46 4F 80 50 
FF49 55 9B 49 
-PF4C-5F 7€ 


FF4E 56 80 43 
PF51 80 80 42 
FF54 58 5 A 
FF56 24 80 23 
4F58-36 IB 25 


FF5C 22 21 

FF-5E 5B 20 5D 
FF61 4E 80 4D 
FF64 3F 81 
FF66 52 BO 45 


FF69 59 9F 54 
FF6C 57 51 


FF6E 28 80 29 
FF71 27 9C 40 
PF74 70 90 
FF76 46 48 44 
FF79 SO 83 47 
FF7C 53 41 




BYTE $4C, $4A, $3A, $80, $80, $4B, $5C, $5E UPPER CASE 


. BYTE $4F, $80, $50, $55, $9B, $49, $5F, $7C 


BYTE 




$56, $80, $43, $80, $80, $42, $58, $5A 




. BYTE $24, $80, $23, $26, $1B, $25, $22, $21 


. BYTE $5B, $20, $5D, $4E, $80, $4D, $3F, $81 


BYTE $28, $80, $29, $27, $9C, $40, $7D, $9D 


. BYTE $46, $48, $44, $80, $83, $47, $53, $41 


OA- 7£ 
l FBI BO 80 OB 
IFB 4 IE IF 
FF86 OF 80 10 
FF89 15 9B 09 
! FBC 1C ID 

IF BE 16 80 03 
FF91 80 80 02 
FF94 18 1A 
FF96 80 80 85 
FF99 80 IB 80 
4F9C F&-&Q 


BYTE $0C, $0A, $78, 


$80, $0B, $1E, $1F CONTRl 


BYTE $0F» $80, $10, $15, $9B, $09, $1C, $1D 


BYTE $16, $80, $03, $80, $80, $02, $18, $1A 


$80, $80, $85, $80, $1B, $80, $FD, $80 





. BYTE 



Moore Business Forms, Inc. sv 1412T 


so 


o 


DIS'l'LAV HANDLER — 10-30-78 


D1SPLC 


t 




r 




FF9E 00 20 60 
FFA1 OE 80 OD 
FA4 80 81 
LFA6 12 SO 05 
FFA9 19 9 E 14 
LFAC 17 11 






FFAE 80 80 80 
!FB1 80 FE 80 
FFB4 7D FF 
FFB6 06 08 04 
f-FB9 80 84 07 
i-FBC 13 01 


BYTE $00, $20, $60, $0E, $80, $0D, $80, $81 


BYTE $12, $80, $05, $19, $9E, $14, $17, $1 1 


BYTE $80, $80, $80, $80, $FE, $80, $7D, $FF 


BYTE $06, $08, $04, $80, $84, $07, $13, $01 






FFBE AD 09 D2 
FFC1 CD F2 02 




P IRQ 




FFC4 DO 05 
FFC6 AD FI 02 
+FC-9 DO 20 


FF CB AD 09 D2 
FFCE C9 9F 
FFBO DO GA 


PIRQ3 


FFD2 AD FF 02 
FFD5 49 FF 


f FDA BO OF 
FFDC 8D FC 02 
SD F2 02 
FFE2 A9 03 
FFE4 8D FI 02 
FFE7 A9 OO 


PIRQ1 


LDA 

CMP 

BNE 

LDA 

Lda 

CMP 

LDA 

EOR 

STA 


KBCODE 

CHI 

PIRQ3 

KEYDEL 

-B XRQ4 


FFE9 85 4D 
FFEB A9 30 
FFEB 8D 2B 02 


f-FFO 68 
FFF 1 40 


PIRQ4 

pTrqF) 


BCS 

STA 

STA 

LDA 

STA 

L.OA 

STA 

LDA 

STA 

PLA 

RTI 


KBCODE 
tCNTL 1 
-PH 
SSFLAG 
#$FF 
SSFLAG 


TEST AGAINST LAST KEY PRESSED 
IF NOT, GO PROCESS KEY 
IF KEY DELAY BYTE > 0 
IGNORE KEY AS BOUNCE 

~rest5re~ac — 

TEST CONTROL 1 (SSFLAG) 











aeSv> ' S° C ^1 ~~ ^ ^(ooovu-e. 



(UNCONDITIONAL) MAKE "T INVISIBLE 


OH4 — - - 

#3 

KEYDEL INITIALIZE KEY DELAY FOR DEBOUNCE 

ATRACT „ , . f. 

V4 FofU 

- S RT S M R ' — 




FFF2 FF FF FF 
FFF 5 FF FF FF 

FFF8 




$FF, $FF, $FF, $FF, $FF, $FF 






CRNTPC =* 


0014 00 


KBDSPR 


BYTE $FFF8-CRNTPC 
END 


DISPLC IS TOO LONG 


c 

c 

c 

c 







w 

4 

4 


<4 


13PLAY HANDLER — 10-30-7B 


Al 


l CK:A1 
*PMHJ 

A T A N 

AUDC2 
AUDI 1 

HAfHOC- 

HH-NHI 

T+T4R0fc:- 

iiciot? 

HRKABT 
j4f-i r* 


mjfcnt 

HUFSTR 

TfAFONT 

CAUX1 

OOOMND 

-0DT H F 3- 


SYMBOL 
030E 
FE45 
OOOE 
BE43- 
D203 
D200 
0006 
0035 
FB31 
FAFA 
0009 
0080 
F805 
006B 
006C 
0002 
023C 
023B 
022A 
021 A 
02FC 


CDIMV2 

CM 

O r 4 A R 02FA 

CMKBM1 003B 
CHUNS/ E46E 

-CKFY 004A 

007D 
F7CE 
O09F 


TABLE 
ADRESS 

ANCONV 

ASCC01 

ATASC 1 

AUDC3 

AUDF2 

BADMGD 

BFENLO 

BITGET 

BITSET 

BOOTAD 

BRKKEY 

BS3 

BUFRFL 

CASBUF 

CASORG 

CAUX2 

CDEVIC 

CDTMF4 

CDTMV3 

CHI 

CHBAS 


0064 
FE69 
F705 
FEFE 
D205 
D202 
0091 
0034 
FB25 
FB06 
0242 
001 1 
F7F5 
0038 
03FD 
EF41 
023D 
023A 
0220 
02 1C 
02F2 
- G 5 F4 


Cl RCQB 
Cl RSC3 
CN'UJ — 


CM Cfi 
COI PST 
-COi OR4- 


COLPFO 
cm pmo 
G0LR8M 


FCE4 

0244 

02C5 

D016 

D012 

004F 


CHKSUM 
CIOORG 
'CLICK 
CLRLIi 
CLRSCR 
CNTRLS 
COLOR i 
CGLDSV 
COLOR 2 
C0LPF1 
C0LPM1 
GGLRTB 


0031 

E4A6 

FGB8 

FBA6 

F7B9 

FE06 


FCEE 
E477 
0206 
DO! 7 
DO 13 
FEC 1 


CONK ET 
OONVR3 
f 'f I MV P Y 

C RETRY 
CRSINH 
o n r iT/r n 

CHi AT 
DBPDEC 
W ) 
JWY TLO 
DLGPLG 


F789 
F98F 

0036 

02F0 

0288 

F913 

F934 

0308 

OOFB 

F860 


CONSOL 
C0NVR4 
COS 


DO 1 F 
F99C 
BD73 


Dll. TAR 
PM T4 A 
Dl*l AOS 
DIRECT 

1 ") V r iP I V 

PMACT t 
DOB 1 
Df iRl IF 3 

DOCRl 

D0CR2A 

J"V I J 

Df.tM-Mi 


FQD7 
0076 
FC68 
0240 
0002 
0053 
D400 
FC 1 A 
FC 51 
FAOO 
FA4A 
FBE5 
F460 


CRITIC 
CRSRDN 
CRSRRT 
CTIA 
DBDEC 
DBUFHI 
DCB 
DEGON 
DELETE 
DELL IB 
DELTI 1 
DELTIB 
DHLINE 
DISK 
B T V 2 -TB 
DMASK 
D0BU1A 
DOBUF4 
DOCRl A 
D0CR2B 
-0 GL - CG2 
D0PEN2 


0042 

F7SC 

T7 A A — 

r / MM 

DOGO 

F91F 

0305 

0300 

0006 

0021 

F8DB 

FCS2 

FC7G 

FE81 

0044 

FEA5 

02A0 

FC29 

FC55 

FA29 

FA4D 

FBF8 

F4D5 


— DISPLC 


AFP D0OO 

ANTIC D400 
ATACHR 02FB 
ATRAC T 004D 
AUDC4 D207 
AUDF3 D204 
BELL F90A 
BITCLR FB 12 
BITMSK 006E 
BLIM 028A 
BOTSCR 02BF 
BS F7E6 

BSA F7EC 

BUFRHI 0033 
CASETV E440 
CASSBT 004B 
CBAUDH 02EF 
CDTMA1 0226 
CDTMF5 022E 
CDTMV4 02 IE 
CHACT 02F3 
CHBASE D409 
CHRORG EOOO 
CIOV E456 
CLICK! FC DA 
CLRLIN FB9B 
CLRTAB F832 
COLAC 0072 
C0LCR2 FCFO 
COL INC 007A 
COLORS 02C7 
C0LPF2 DO 18 
C0LPM2 DO 14 
COLUMN FE8D 
C0NVR1 F97E 
C0NVR5 F9A6 
COUNTR 007E 
CRLOOP F5E7 
CRSRL1 F7A3 
C R SR UP F77F 
DAUXi 030A 
DBSECT 0241 
DBUFLO 0304 
DCOMND 0302 
DELCHl F870 
DELL I i F8DD 
DELLIN F8D4 
DELTI2 FC89 
DELTIM FC73 
DIGRT OOF 1 
DISKIV E450 
DLISTH D403 
DMASKT FEB 1 
D0BUF1 FC 12 
DOBUFC FCOO 
D0CR1B FA 14 
D0CR4B FA61 
DGLCGE FBDD 
D0PEN3 F4FA 


ALLPOT D2G8 
APPEND 0001 
ATAINT FEF6 

AUDC1 0201 
AUDCTL D208 
AUDF4 D206 
BELL 1 F90C 
BITCON FAEB 
BITPUT FB04 
BLKBDV E47 i 
BPTR 003D 

BS1 F80D 

BUFADR 0015 
BUFRLO 0032 
CASFLG 030F 
CASSET 0043 
CBAUDL 02EE 
CDTMA2 0228 
CDTMV1 0218 
CDTMV5 0220 
CHACTL D401 
CHRERR 008F 
CIOCHR 002F 
C I X 00F2 

CLOSE OOGC 
CLRSC2 F7BF 
CL.RTBS F430 
COLBK DO 1 A 
COLORS 0055 
COLORO 02C4 
COL OR 4 02C8 

C0LPF3 D019 
C0L.PM3 DO 15 
COMRE1 F7-A-7 
CQNVR2 F988 
C0NVR6 F9A7 
CR 009B 

CRNTPC FFF8 
CRSRLF F799 
C SOP IV E47D 
DAUX2 030B 
DBSUB F921 
DBYTHI 0309 
DDEVIC 0300 
DELCH2 F896 
DELL I 2 F8F8 
DELTAC 0077 
DELTI3 FC8C 
D ERROR 0090 
DINDEX 0057 
DISPLA E410 
DL I STL D402 
DNACK 008B 
D0BUF2 FC39 
DOCR FA34 
D0CR2 FA3D 
DQCRWS FA30 
0OFEN F3F6 
D0PEN4 F51C 



DuriNl F460 


D0PEN2 F4D5 


D0PEN3 F4FA 


D0PEN4 F51C 


DISPLAY HANDLER — 10-30-78 -- DISPLC 


t 


V# 

# 


DC Whit* 
-PHPPNA 
DRAW 
DRAW 2 

I viJ A 1 IL 

DRAWBB 
PPAWB 
DSKFMS 
DSKUTL 
WtfiO 
EDITOR 
FQl TC2 
— FGFT 07 


F524 
F457 
FCFC 
FD5C 
FDA4 
FDEB 
FE27 
FDOB 
0018 
001 A 
0306 
E400 
F66E 
F680 
F3FC 
FASS 
02A2 
FB7E 
DA66 
003F 
DD8D 
OOFC 
-FNCNOT — 0 0 92 


E( WN 
FRANCE 
FSCHrG 
EX { F N1 
FAD'D 
Ff-Of- 


EL DOP 
FI RTR 


FPSCR 

ERJ 

FHMAPR 
FSCR1 
FTYPE 
- OETPLT 
OR AC 71 
0RAEP2 
-4- F M -P1 - 


HOI D5 
HP0SH1 

1 C AX 1 
1 CD AH 
1 CBLH 
ICCOH 
3 CDNOZ 
- H E W - 


05E6 

OOEO 

0068 

05EC 

003E 

F5A2 

D01D 

DOOF 

0054 

02BD 

D005 

-0001 

034A 

0345 

-0349 

0342 

0021 

-0347 


ICSPR 
3 Ei J 

E N C2A — 
JNCRSA 
I NSC HI 


034C 
D9AA 
F9F8 
F9DC 
F852 
4M8GH6 F861 


D0PEN7 F588 
DOS INI OOOC 
DRAW1 FD3 7 
DRAW3 FDS." 
DRAW5A FOB.; 
DRAW7 FDF 1 
DRAW8C FE13 
DR AWL N 0011 
DSKINV E453 
DSPFLG 02FE 
DON IT 0301 
EDITRV E400 
EGETC3 F67C 
EGETOH F63E 
E0UTC5 F6BE 
ERETN F6BB 
ES1GN OOEF 
EXTEN3 FBSB 
FASC D8E6 
FILDAT 02FD 
FLDOR DD89 
FliOVE DDB6 
FORMAT 0022 


FPSCR1 

FR2 

FRMERR- 

FSTOP 

GETCH 


05EC 
00E6 
OOSG 
DDAB 
F593 
0005 
GRAFM D011 
GRAFP3 D010 
WGLD2 029F 
HOLDCH 007C 
HP0SM2 D006 

up n opn nnno 

ICAX1Z 002A 
ICBAHZ 0025 
IC8LHZ 0029 
ICCOMT 0017 
ICHID 0340 
IOPTHZ 0027- 
ICSPRZ 002C 


INATA1 
INC RSI 
INCRSB 
INSCH3 


FB4A 

FA77 

F9D4 

F85E 


1NSLI1 
3 N l ABB 

y <. * T f l£)A 

I OCR AS 
3 ROST 

1/ / j 

K7 

KBDHND 
EF-Y-DFE- 
KCETCH 
I. BUFF 

S~ 


OCKFL 


F8C6 
0200 
7E6D5 
0020 
D20E 
F73F- 
F745 
E420 
02F1 
F6E2 
0580 
OOGO 
0023 


- INSCHR F837 
INSLI2 F8CE 
INTATA FEFA 
1NTZBS GOTO 
IOCBSZ 0010 
JSRIND F6A1 

K4 F7-76 

K8 F773 

KBDORG F3E4 
KGETOT F71E 
LBFEND 05FF 
LEDGE 0002 
-LMARGN 0052 
LOG DECD 


D0PEN8 

DOSS 

DRAW10 

DRAW3A 

0RAW6 

DRAW8 

DRAW9 

DRETRY 

DSKORG 

DSTAT 

DUNUSE 

EEXP 

EGETC5 

ENDPT 

E0UTC6 

ERRFLG 

E*P 

EXTEN4 

FCHRFL 

FILFLG 

FLD1P 

FMSZPG 

FRT — 

FPTR2 

FRE 

FRX 

FSTOR 

GETCHR 

GLBABS 

GRAFPO 

HATABS 

HGLD3 

HOME 

HP0SM3 

HPOSP3 

ICAX2 

ICBAL 

IC8LL - 

ICCOMZ 

ICHIDZ 

IOPTL 

ICSTA 

I NAT AC 

INCRSE 

INCRSC 

INSCH4 

INSCLR 

INSLIA 

INTEMP 

INVFLG 

IOCFRE 

K1 

¥S 

KBCODE 

KBDSPR 

KOETC-2 

LBPR1 

LFRTCM 

LSI GET 

LOG 10 


F438 
F6AD 
S FE 42 
1 FD62 
FDBE 
FDF6 
FE30 
0037 
EDEA 
004C 
0307 
OOED 
F691 
0074 
F6B5 
023F 
DDCO 
FB92 
OOFO 
02B7 
DD9C 
0043 
D9D2 
OOFE 
OODA 
OOEC 
DDA7 
0007 

AOCA 

uclCu 

DOOD 
031 A 
029D 
F7D6 
D007 
D003 
034B 
0344 
0348 
0022 
0020 
0346 
0343 
FB32 
F9E4 
F9DA 
F844 
0020 
F8A5 
022D 
02B6 
OOFF 
F729 
F760 
D209 
0014 
F6DD 
057E 
F7A5 
FB22 
DED1 


D0PEN9 

D0S9EC 

DRAW1 1 

DRAW4A 

DRAW6A 

DRAW8A 

DRAWA 

DRKMSK 

DSKTIM 

DSTATS 

DVSTAT 

EGETC1 

EGETC6 

EOFERR 

EOUTCH 

ESCAPE 

EXP 10 

EXTEND 

FDIV 

FILL IN 

FLD1R 

FMUL 

FPREC 

FRO 

FREQ 

FSCR 

FSUB 

GETOUT 

inp 

x Un 

GRAFP 1 

HITCLR 

HGLD4 

HPOSMO 

HPOSPO 

HSCROL 

ICAX2Z 

ICBALZ 

ICBLL-Z 

ICDNO 

ICIDNO 

IOPTL2 

ICSTAZ 

INBUFF 

TNCRS3 

I NCR SR 

INSCH5 

IMS DAT 

INSLIN 

INTINV 

IO€B 

IRQEN 

K2 

K6 

KBD 

KEYBDV 

KOETC3 

LBPR2 

LINBUF 

LG2GET 

LOGCOL 


F577 

OOOA 

FD 99 

FD 90 

FDD7 

FEOA 

FDOC 

004E 

0246 
0303 
02EA 
F650 
F66B 
0088 
F6A4 
F779 
DDCC 
FB7B 
DB28 
0012 
DD98 
DADB 
0006 
00D4 
0040 
05E6 
DA60 
F749 
G26F 
DOOE 
DO IE 
02BC 
D004 
DOOO 
D404 
002B 
0024 
0028 
0341 
002E 
0026 
0023 
00F3 
F9F7 
F9D8 
F86A 
007 D 
F8A4 
E46B 
0340 
D20E 
F734 
F74D 
004B 
E420 
F6FE 
057F 

0247 
FB23 
0063 


DISH AY HANDLER — 10-30-78 — DISPLC 


I UOCM T 
>4444- 

m;*pf 

MASK I B 
N LHUIH 
MC JVl J 1 
MXDMOD 
— NfflNFB 
NOHOP 
N( IGCRL 

XI/ l'l / IpKI 
nt * 1 t »rrf 

OFPCRS 
01 PROW 
-OPN.VN-- 
OU l CH 
CJUTCHE 
-HOP I. 


PPPL 


FB20 

DOOO 

D002 

FEB9 

02E5 

FB58 

0010 

D40F 

F4AB 

FA2C 

0085 

FAE4 

005A 

0004 

F5B7 

F5CA 

DGOC 

DOOE 

0270 


LOOMAP 

MOPL 

M2PL 

MAXDEV 

MLTTWP 

MOOLI 2 

NEWCOL 

NMIST 

NONDEV 

N0T8 

NS I ON 

OLDADR 

OPEN 

OPNINO 

DUTCH2 

OUTPLT 

P^rPF 


PADDLO 
FW+P4 4 0274 

PACFTB FE75 
PC 01 RO 02 CO 
-F HNH - D40C 




; 

P 3 UQ3 


POKEY 
POl 0 
- W t 4 - 


D300 

FFCB 

05E0 

D200 

D200 

0204 


P3PF 

PADDLi 

FA DDL 5 

PBCTL 

PC0LR1 

PENV 


PO 'f 00 
PtiNBUF 

PTTWGT- 

PTR3G3 
FTIUQ7 
— - P W RQNA 
RAMS I 2 
HANOI- i 


r<n uri 

RMG'FRl 
-H OW AC 


'3&m 


SAVADR 

B0RPNV 

-6 GR0L2 


SDMCTl 
SE TT AB 
-s . 1 aP 44- 
81 N 
S3 ?t-M 
ST7FP3 


D20B 
03C0 
GO 1C 
027F 
0283 
-F3E4 
02E4 
FAB7 
0087 
F634 
FAD8 
0070 
0068 
E410 
FBCA 
022F 
F82D 
F5B1 
BD81 
DOOC 
DOOB 


PIRG 
PIRQ4 
-PL.YEVL 
POKMSK 
POT 1 
-POT-5 


02B2 
0008 
DOOA 
0021 
0066 
FB7A 
0061 
D40F 
0082 
F48B 
OGEE 
005E 
0003 
OOOC 
F5FF 
F5E0 
BOGS 
D007 
0271 
0275 
D303 
02C 1 
D40D 


L.PENH 

M1PF 

M3PF 

MAXIOC 

MODEM 

MOYLIN 

NEWROW 

NOCKSM 

NOROWS 

NOTE 

NUMDLE 

OL.DCHR 

□PNC DM 

OPNOT 

OUTCHA 

OYRRUN 

P1PL 

P3PL 

PADDL2 

PADDL6 

PBPNT 

PC0LR2 

PHACR 1 

PIRG1 

PLACR1 

PMBASE 

PORTA 

P0T2 


fid UNDR 

0041 

SSJ-LAG 

02FF 

S4-ATU8- 

0030 - 

S l ICK3 

027B 

STR BEG 

FC5C 

-wmrop- 

0286 - 

SUBT MP 

029E 

SWAP 3 

- 1 All 

FCD7 

F810 

T MH 

TEMP 

023E 


PRINTR 
PRNORG 
PTR ICO 
FTRIG4 
PUTCHR 
R-ABFLG 
RAMTOP 
RANGE2 
RECVDN 
RETUR3 
RNGER2 
— RQWCRS 
SAVIO 
SCRFLG 
SCROLL 
SENDEY 
SETYBY 
SHTFT2 
SI 01 NY 
SIZEPO 
SKCTL 
SPEC I L 
SSKCTL 
ST4GKG 
STIMER 
STRERR 
STR 103 
SUCCES 
SWAPA 
4FA81 
TEMPI 


FFBE 
FFEB 
DD40 
0010 
D201 
D2Q 5 POT 6 

0050 
EE78 
027C 
0280 
OOOB 


006A 

FABB 

0039 

FAE1 

FAD6 

0054 

0316 

02BB 

FB AC 

E468 

E45C 

F6 1G 

E465 

D008 

D20F 

OOOE 

0232 

0278- 

D209 

F942 

0287 

0001 

FCB9 

F823 

0312 


PRINTY 

PRYOPN 

PTRIG1 

PTRIG5 

PUTMSC 

RADON 

RANDOM 

RANGE3 

REDGE 

RETURN 

RNGERR 

ROWING 

SAYMSC 

SCRMEM 

SDLSTH 

SERIN 

SHFAMT 

SHIFTD 

SIOORG 

SIZEP1 

SKRES 

SQR 

STACKP 

STLGK4 

STORE 

STRIGO 

STROK 

SWAP 

SWPFLG 

TABS 

TEMP2 


0234 
DOOl 
D003 
0080 
004D 
FB4E 
0060 
O03C 
FE99 
0026 
FES 1 
005D 
F404 
0008 
F5BD 
008E 
DOOD 
DOOF 
0272 
0276 
00 ID 
02C2 
FC9F 
FFDC 
FCAA 
D407 
D300 
D202 
D206 
E430 
0081 
027D 
0281 
FCF3 
OOOO 
D20A 
FA9E 
0027 
F621 
FAD1 
0079 
0058 
0093 
0231 
D20D 
006F 
F5AA 
E944 
D009 
D20A 
BEB 1 
0318 
0279 
F917 
0284 
F946 
FCB3 
007B 
F82A 
0314 


LPENY 

Ml PL 

M3PL 

MEMLO 

HONOR O 

MXDMDE 

NMIEN 

NOFUNC 

N0SCR1 

NOTMXD 

NYALID 

QLDCOL 

OPNERR 

OPNTMP 

OUTCHB 

POPF 

P2PF 

PACTL 

PADDL3 

PA DDL 7 

PBUFSZ 

PC0LR3 

PHACRS 

PIRQ2 

PLACRS 

POINT 

PORTB 

P0T3 

PGT7 

PRIOR 

PTEMP 

PTRIG2 

PTRIG6 

PUTREC 

RAMLO 

RANGE 

RBLOKY 

RENAME 

RMARGN 

RNGOK 

RTCLOK 

SCREDT 

SCR0L1 

SDL STL 

SEROUT 

SHFLOK 

SHIFTU 

SIOY 

SIZEP2 

SKSTAT 

SRTIMR 

STATIS 

STICK2 

STORE 1 

STRIG1 

SUBEND 

SWAP 1 

SYSYBY 

TAR MAP 
iriil t rl r 

TEMP3 


0235 
D009 
DOOB 
02E7 
FOE3 
FE5D 
D40E 
F63D 
FA32 
F4F5 
0084 
005B 
F453 
0066 
F5D7 
D004 
D006 
D302 
0273 
0277 
00 IE 
02C3 
FC9D 
FFFO 
FCA8 
0025 
D301 
D203 
D207 
DO IB 
001F 
027E 
0282 
0009 
0004 
FA96 
E47A 
0020 
0053 
FAC 4 
0012 
0045 
FBB7 
0230 
D20D 
02BE 
F608 
E459 
DOOA 
D20F 
022B 
OOOD 
027A 
F91D 
0285 
FA7A 
FCC2 
E45F 
G2A3 
0315 








• v-~ v II K, 


VW X "T 


i c.nr j 


— 

DISPl AY HANDLER 10 - 30-78 






DISPLC 



» 


» 


* 


* 

« 


r i nr r i 

030C 

TIMER2 

0310 

TIMFLG 

0317 

TIMOUT 

008A 

— TfNBE-X 

0293 

TMPCHR 

0050 

TMPC 01. 

02B9 

TMPLBT 

02A1 

TMPROW 

02B8 

TMPX1 

029C 

TOADR 

0066 

TRAMSZ 

0006 

TR ) 00 

D010 

TRI01 

DO 11 

TRIG2 

DO 12 

TRIG3 

DO 13 

— TRNRCP 

0089 

TSTAT 

0319 

TSTCT1 

FC8F 

TSTCT2 

FC9C 

TSTCTt 

FC8D 

TSTDAT 

0007 

TXTCOL 

0291 

TXTMSC 

0294 

\ XT 01 D 

0296 

TXTROW 

0290 

UNLOCK 

0024 

UPDNCM 

F787 

HS A Hr A 

0480 

VBREAK 

0206 

VBWAIT 

F496 

VCOUNT 

D40B 

VC1 ABL 

E480 

VDELAY 

DO 1C 

VDSLST 

0200 

VECTBL 

E400 

V IN IRQ 

0216 

VINTER 

0204 

VKEYBD 

0208 

VPRCED 

0202 


r\/lACi 

IJCCD T hi— An«A 

VSEROC 






VbbH 1 N 020A 

020E 

VSEROR 

020C 

VI l MR .1 

0210 

VTIMR2 

0212 

VTIMR4 

0214 

VVBLKD 

0224 

win ki 

0222 

WARMST 

0008 

WARMSV 

E474 

WMODE 

0289 

¥-- 

0083 

WSYNC 

D40A 

XITVBV 

E462 

XMTDON 

003A 

ZIOCB 

0020 

ZTENPi 

OOFS 

ZTEMP3 

00F9 

ZTEMP4 

00F7 





« 

« 

« 







♦ 
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PAGE 250 SHEP 

ATARI 

FLOATING POINT 


8104 COOO 


8105 


8106 

• 

8107 

• 

8108 

• 

8109 

* 

81 10 

* 

8111 

* 

81 12 

* 

8113 

« 

8114 

* 

8115 

* 

8116 

AFP 

8117 

CVAFP 

9119 

ASCIN 


PAGE 

'FLOATING 

ORC 

FPORG 

LOCAL 


ASCIN - 

CONVERT Al 

ON ENTRY 

INBUFF 


CIX - 

ON EXIT 

CC SET 


CARRY CLEAR OF # 


81 19 
8120 
8 121 

9122 

9123 

9124 


D800 20A1 DB 
D803 20BBDB 
D9 06 B039 


JSR 

JSR 

BCS 


SKPBLANK 
? TSTCHAR 
! NONUM 


i SEE IF THIS COULD BE A NUMBER 
i BR IF NOT A NUMBER 




SET INITIAL VALUES 


3125 
91 2 A 
9127 
81 28 

D809 

DBOA 

DBOC 

DBOF 

A2ED 
A004 
2049DA 
A2FF - ■ 


LDX 

LDY 

JSR 

LDX 

#EEXP 

#4 

ZXLY 

#*FF 

8129 

DS1 1 

36F1 


STX 

DIGRT 

8130 

8131 

D813 

2044DA 

i 

JSR 

ZFRO 

8132 

8133 

D816 

F004 

> 

BEQ 

! IN2 


i ZERO 4 VALUES ^ j M G £ SZET G M ^ F^-H LG— . 

i X 


8134 

8135 

8136 

8137 

8138 

8139 

8140 

8141 

8142 


; SET TO $FF 
; CLEAR FRO 
; UNCONDITIONAL BR 






! INI 


D818 
D81 A 


A9FF 

85F0 


LDA 

STA 


#$FF 

FCHRFLG 


SET 1ST CHAR FLAG TO NON ZERO 
X 




! in; 


D81C 

DS1F 


2094DB 

B021 


JSR 

BCS 


! GETCHAR 
! N0N1 


GET INPUT CHAR 

BR IF CHAR NOT NUMBER 


C3 K 






81 43 

8144 

8145 

8146, 

8147 DS21 48 

8148 D822 A6D5 

8149 D824 D011 

8150 

8151 D826 20EBDB 

8152 

8153 D829 68 

8154 D82A 05D9 

8155 D82C 85D9 

8156 

8157 


IT'S A NUMBER 


PHA 

LDX FROM 

BNE ! INCE 


JSR 


NIBSHO 




; SAVE ON CPU STACK 
; GET 1ST BYTE 
; I NCR EXPONENT 

i SHIFT FRO ONE NIBBLE LEFT 


PLA 

ORA 

STA 


FROM+FMPREC-1 
FROM+FMPREC-1 

COUNT CHARACTERS AFTER DECIMAL POINT 


GET DIGIT ON CPU STACK 
OR INTO LAST BYTE 
SAVE AS LAST BYTE 




\ 


. 







PAGE 251 SHEP ATARI EDITOR 
FLOATING POINT 

8158 i 


8159 

DS2E 

A6F 1 


LDX 

DIGRT 

i 

GET # OF DIGITS RIGHT 


8160 

D830 

30E6 


BMI 

! INI 

i 

IF = $FFi NO DECIMAL 

POINT 

8161 

D832 

E8 


INX 


i 

ADD IN THIS CHAR 


8162 

D833 

86F 1 


STX 

DIGRT 

i 

SAVE 


8163 

D835 

D0E1 


BNE 

! INI 

i 

GET NEXT CHAR 


8164 



i 




< 


8165 



« 

t 






8166 



i 

INCREMENT # OR 

DIGIT MORE 

THAN 9 


8167 



j 






8168 



• 

t 






8169 



! INCE 






8170 

D837 

68 


PLA 


i 

CLEAR CPU STACK 


8171 

D838 

A6F 1 


LDX 

DIGRT 


HAVE DP? 


8172 

D83A 

1002 


BPL 

! INCE2 

i 

IF YES, DON'T INCR E 

COUNT 

8173 

DS3C 

E6ED 


INC 

EEXP 

i 

INCR EXPONENT 


O 1 -7 A 



« TIMCE2 




. — — 


O i / *T 

8175 

D83E 

4C13D8 

JL It wi— C. 

JMP 

! INI 

i 

GET NEXT CHAR 



8176 ; 

8177 i 

8178 INONUM 

8179 D841 60 

8180 


RTS 


; RETURN FAIL 


PAGE 252 
FLOATING POINT 


SHEP 


ATARI EDITOR 



8181 

8182 

8183 

8184 

8185 D842 C92E 

8186 D844 F014 

8187 D846 C945 

8188 D848 F 019 

8189 

8190 D84A A6F0 

8191 D84C D06S 

8192 D84E C92B 

8193 D850 F0C6 

8194 DS52 C92D 

8195 D854 FOOO 

8196 

8197 0000 

8198 

8199 

8200 
8201 

8202 DS56 85EE 

8203 D858 FOBE 

8204 

8205 

8206 D85A A6F1 

8207 DS5C 1058 

8208 D85E E8 

8209 D85F 86F1 

8210 D861 FOES 

8211 
8212 

8213 D863 A5F2 

8214 D865 S5EC 

8215 D867 2094DB 

8216 D86A B037 

8217 

8218 
8219 


! N0N1 


.‘MINUS 


* DP 


PAGE 

NON-NUMERIC IN NUMBER BODY 


CMP 

#'. ' 

BEG 

f DP 

CMP 

# ' E ' 

BEG 

! EXP 

LDX 

FCHRFLG 

BNE 

! EX I T 

CMP 

#' + ' 

BEG 

f INI 

CMP 


BEG 

•MINUS 

. IF 

DBVER 

BRK 


. ENDIF 



IS IT DECIMAL POINT? 

IF YES, PROCESS IT 
IS IT E FOR EXPONENT? 

IF YES, DO EXPONENT 

IS THIS THE 1ST CHAR 

IF NOT, END OF NUMERIC INPUT 

IS IT PLUS? 

GO FOR NEXT CHAR 
IS IT MINUS? 


SHOULDN'T GET HERE 


STA NS I GN i SAVE SIGN FOR LATER 

BEG i INI ; UNCONDITIONAL BRANCH FOR NEXT CHAR 


LDX DIGRT ; IS DIGRT STILL - FF? 

BPL .‘EXIT ; IF NOT, ALREADY HAVE DP 

I NX ; I NCR TO ZERO 

STX DIGRT ; SAVE 

BEG ! INI ; UNCONDITIONAL BR FOR NEXT CHAR 


.‘EXP 

LDA CIX ; GET INDEX 

STA FRX ; SAVE 

JSR ‘GETCHAR ; GET NEXT CHAR 

BCS ! N0N2 > BR IF NOT NUMBER 

i IT'S A NUMBER IN AN EXPONENT 


8220 

8221 

DS6C 

AA 

! EXP2 

TAX 


8222 

D86D 

A5ED 

LDA 

EEXP 

8223 

D86F 

48 

PHA 


8224 

D870 

86ED 

STX 

EEXP 

8225 

D872 

2094DB 

JSR 

! GETCHAR 

8226 



i 


8227 



i 


8228 

D875 

B01 7 

BCS 

! EXP3 

8229 

D877 

48 

PHA 


8230 



i 


8231 

D878 

A5ED 

LDA 

EEXP 

8232 

D87A 

OA 

ASLA 


8233 

D87B 

85ED 

STA 

EEXP 

8234 

D87D 

OA 

ASLA 



SAVE 1ST CHAR OF EXPONENT 
GET # OF CHAR OVER 9 
SAVE IT 

SAVE 1ST CHAR OF EXPONENT 
GET NEXT CHAR 


IF NOT # NO SECOND DIGIT 
SAVE SECOND DIGIT 

GET 1ST DIGIT 
GET DIGIT * 10 
X 
X 


PAGE 253 SHEP ATARI EDITOR 
FLOATING POINT 


8235 

D87E 

OA 


ASLA 


8236 

D87F 

65ED 


ADC 

EEXP 

8237 

D881 

85ED 


STA 

EEXP 

8238 

D883 

68 


PLA 


8239 

D884 

18 


CLC 


8240 

D885 

65ED 


ADC 

EEXP 

8241 

D887 

85ED 


STA 

EEXP 

8242 



} 



8243 

DS89 

A4F2 


LDY 

CIX 

8244 

D88B 

208DDB 


JSR 

! GCHR 1 

8245 






8246 



i 



8247 



! EXP3 



8248 

D83E 

A5EF 


LDA 

ESI GN 

8248 

D890 

F009 


BEG 

! EXP 1 

8250 

D892 

A5ED 


LDA 

EEXP 

8251 

D894 

49FF 


EOR 

#$FF 

8252 

D896 

18 


CLC 


8253 

D897 

6901 


ADC 

#1 

8254 

D899 

85ED 


STA 

EEXP 

8255 



! EXP 1 



8256 

D89B 

68 


PLA 


8257 

DS9C 

18 


CLC 


8258 

D89D 

65ED 


ADC 

EEXP 

8258 

D89F 

S5ED 


STA 

EEXP 

8260 

D8A1 

DO 13 


BNE 

‘EXIT 

8261 


X 

X 

SAVE 

GET SECOND DIGIT 

GET EXPONENT INPUTTED 
SAVE 


INC TO NEXT CHAR 
X 


GET SIGN OF EXPONENT 
IF NO SIGN, IT IS + 

GET EXPONENT ENTERED 
COMPLEMENT TO MAKE MINUS 
X 
X 

SAVE 

GET # DIGITS MORE THAN 9 
CLEAR CARRY 

ADD IN ENTERED EXPONENT 
SAVE EXPONENT 
UNCONDITIONAL BR 


24 
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8262 

8263 

8264 

8265 


ATARI EDITOR 


8267 


8271 


8274 

8275 


8277- 

8278 

8279 

8280 
8281 
8282 

8283 DSB2 

8284 D8B4 

8285 

8286 
8287 


/ 


PAGE 

NON-NUMERIC IN EXPONENT 


‘NON! 


D8A3 

C92B 


CMP 


> 

IS XT PLUS? 

D8A5 

F006 


BEQ 

! EPLUS 

t 

IF YES BR 

D8A7 

C92D 


CMP 


} 

IS IT A MINUS? 

D8A9 

D007 

} 

BNE 

‘NOTE 

> 

IF NOT, BR 



> 

‘EMIN 





DSAB 

85EF 

! EPLUS 

STA 

ES I GN 

i 

SAVE EXPONENT SIGN 

D8AD 

2094DB 


JSR 

! GETCHAR 

i 

GET CHARACTER 

D8B0 

90BA 


BCC 

! EXP2 

i 

IF A #, GO PROCESS 


E NOT PART OF OUR # 


NOTE 


A5EC 

85F2 


LDA 

STA 


FRX 

CIX 


POINT TO 1 PAST E 
RESTORE CIX 


FALL THRU TO EXIT 











57 I 

58 
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8288 

8289 

8290 

8291 

8292 

8293 

8294 

8295 

8296 

8297 

8298 

8299 

8300 

8301 


ATARI EDITOR 


PAGE 

WHOLE # HAS BEEN INPUTTED 


! EX IT 


D8B6 C6F2 


BACK UP ONE CHAR 
DEC CIX 


i DECREMENT INDEX 


CALCULATE POWER OF 10 = EXP - DIGITS RIGHT 
WHERE EXP = ENTERED EXPONENT (COMPLEMENT OF -) 
+ # DIGITS MORE THAN 9 


• 

8302 

DSB8 

A5ED 


LDA 

EEXP 


8303 

D8BA 

A6F1 


LDX 

DIGRT 


8304 

D8BC 

3005 


BMI 

IEXIT1 

# 

8305 

D8SE 

F003 


BEG 

! EX IT 1 


8306 

DSCO 

38 


SEC 


71 

8307 

D8C 1 

E5F1 


SBC 

DIGRT 

m 

8308 






u 

8309 



f 

SHIFT 

RIGHT ALGEBRAIC 


8310 



i 



0 

8311 



! EX IT1 




8312 

DSC 3 

48 


PHA 


78 

8313 

DSC 4 

2A 


ROLA 


0 

8314 

DSC 5 

68 


PLA 



8315 

DSC 6 

6 A 


RORA 



8316 

DSC 7 

35ED 


STA 

EEXP 

• 

8317 

DSC9 

9003 


BCC 

iEVEN 

33 

8318 



i 



J4 

8319 

D8CB 

20EBDB 


VSR 

NIBSHO 

0 

8320 



‘EVEN 




8321 

D8CE 

A5ED 


LDA 

EEXP 


8322 

D8D0 

18 


CLC 


0 

8323 

D8D1 

6944 


ADC 

#$44 


8324 

D8D3 

85D4 


STA 

FRO 


8325 



/ 



0 

8326 

DSD 5 

2000DC 


JSR 

NORM 


8327 

D8D8 

BOOB 


BCS 

! IND2 

<3 r 

8328 



i 



m 

8329 



i 

SET MANTISSA SIGN 

45 

8330 



} 




8331 

D8DA 

A6EE 


LDX 

NSIGN 

0 

8332 

D8DC 

F006 


BEG 

! INDON 


8333 



i 




8334 

D8DE 

A5D4 


LDA 

FRO 

0 

8335 

D8E0 

0980 


ORA 

#$80 


8336 

D6E2 

85D4 


STA 

FRO 

57 

8337 



! INDON 



0 

8338 

D8E4 

18 


CLC 



8339 



! IND2 




8340 

D8E5 

60 


RTS 


0 

8341 







GET EXPONENT 

GET # DIGITS RIGHT OF DECIMAL 

NO DECIMAL POINT 

# OF DIGITS AFTER D. P. =0 

GET EXP - DIGITS RIGHT AS NEW EXP 

X 


SET CARRY WITH SIGN OF EXPONENT 

GET EXPONENT AGAIN 

SHIFT RIGHT 

SAVE POWER OF 100 

IF NO CARRY # EVEN 


i ELSE SHIFT 1 NIBBLE LEFT (MULT BY 10) 

; ADD 40 FOR EXCESS 64+4 FOR NORM 
X 
X 

SAVE AS EXPONENT 

NORMALIZE NUMBER 
IF CARRY SET > IT'S AN ERROR 


IS SIGN OF # MINUS? 
IF NOT, BR 

GET EXPONENT 
TURN ON MINUS # BIT 
SET IN FRO EXP 

; CLEAR CARRY 
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8342 


* 



8343 


* 

FPASC - 

CONVERT 

8344 


* 



8345 


* 

ON ENTRY FRO 

8346 


* 



8347 


*• 

ON EXIT 

INBU! 

8348 


•* 


HIGH 

8349 


*• 



8350 


■* 



8351 


CVFASC 



8352 


FASC 



8353 D8E6 

2051 DA 


JSR 

INTLBF 

8354 


j 



8355 DSE9 

A930 


LDA 

#'0' 

8356 D8EB 

SD7F05 


STA 

LBUFF-1 


FRO - # TO CONVERT 


; SET INBUFF TO PT TO LBUFF 


8357 

S35S 

8359 


GET ASCII ZERO 

PUT IN FROUNT OF LBUFF 


TEST FOR E FORMAT REQUIRED 


8361 D8F0 F02S 


BEQ 

! EXPO 

8362 D8F2 297F 


AND 

#$7F 

8363 D8F4 C93F 


CMP 

#$3F 

8364 DSF6 9028 


BCC 

! EFORM 

8365 D8F8 C945 


CMP 

#$45 

8366 D8FA B024 


BCS 

1 EFORM 

8367 




8368 

-a- 

PROCESS 

NOT E F( 

8369 




8370 D8FC 38 


SEC 


8371 D8FD E93F 


SBC 

#$3F 

8372 

♦ 



8373 D8FF 2070DC 


JSR 

* CVFRO 

8374 

i 



8375 D902 20A4DC 


JSR 

» FNZERO 

8376 D905 0980 


ORA 

• t I M im L. 1 A w 
#$80 

8377 D907 9D8005 


STA 

LBUFF, X 

8378 




8379 D90A AD8005 


LDA 

LBUFF 

8380 D90D C92E 


CMP 

#'. ' 

8381 D90F F003 


BEQ 

« FN6 

8382 D91 1 4C88D9 


JMP 

!FN5 

8383 

! FN6 



8384 D914 20C1DC 


JSR 

* DEC INB 

8385 D91 7 4C9CD9 


JMP 

! FN4 

8386 





GET EXPONENT 
IF EXP = 0, # = 0, SO BR 

AND OUT SIGH 
IS IT LESS THAN 3F 
; IF YES, E FORMAT REQUIRED 
IF IT IS > 44 
IF YES, E FORMAT REQUIRED 


SET CARRY 

GET DECIMAL POSITION 


CONVERT FRO TO ASCII CHAR IN LBUFF 

FIND LAST NON-ZERO CHARACTER 

TURN ON HIGH ORDER BIT FOR POINT END 

STORE IT BACK IN BUFFER 

GET 1ST CHAR IN LBUFF 
IS IT DECIMAL? 

BR IF YES 
ELSE JUMP 

DECIMAL INBUFF 
DO FINAL ADJUSTMENT 
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PAGE 




8396 








8397 



*■ 

PROCESS 

E FORMAT 



8398 



# 





8399 

6400 

D920 

A901 

! EFORM 

LDA 

#1 


GET DECIMAL POSITION 

6401 

D922 

2070DC 


JSR 

! CVFRO 

> 

CONVERT FRO TO ASCII IN LBUFF 

8402 

8403 

D925 

20A4DC 

* 

JSR 

! FNZERO 

} 

GET RID OF TRAILING ZEROS 

8404 

D928 

E8 


I NX 


} 

INCR INDEX 

8405 

D929 

36F2 


STX 

CIX 

f 

SAVE INDEX TO LAST CHAR 


8406 

8407 


ADJUST EXPONENT 


6409 D92B 

6410 D92D 

84 11 D92E 

8412 D92F 

8413 

6414 D931 

A5D4 

OA 

oo 

1 Mi 1 1 . 1 

LDA 

ASLA 

SEC 

FRO 

JO 

E980 

AEB005 

i 

w L» w 

SBC 

LDX 

#$40*2 

LBUFF 

8415 D934 

8416 D936 

8417 

E030 

F017 

, f. , - - . . 

CPX 

BEG 

#'0' 
! EF 1 

8418 


> 

PUT 

DECIMAL AFTER 

8419 

8420 D938 

AES 105 

1 

LDX 

LBUFF+1 

8421 D93B 

AC8205 


LDY 

LBUFF+2 

8422 D93E 

8E8205 


STX 

LBUFF+2 

8423 D941 

8C8105 


STY 

LBUFF+1 

8424 

8425 

8426 D944 

A6F2 

} 

> 

LDX 

CIX 

8427 D946 

E002 


CPX 

#2 

8428 D948 

D002 


BNE 

INOINC 

8429 D94A 

E6F2 


INC 

CIX 

8430 

8431 

8432 D94C 

L.UI Cm 
18 

i 

INOINC 

CLC 


8433 D94D 

6901 


ADC 

#1 


; GET EXPONENT 

; MULT BY 2 (GET RID OF SIGN TOO) 

; SUB EXCESS 64 

; GET 1ST CHAR IN LBUFF 
> IS IT ASCII 0? 


P. + 2ND DIGIT 


; SWITCH D. 
; X 
; X 
; X 


i IF CIX POINTS TO D. P. 
; THEN INC 
; X 
; X 


X 

X 


8434 

8435 

8436 

8437 


CONVERT EXP TO ASCII 


EF1 


8438 

D94F 

S5ED 

STA 

EEXP 

> SAVE EXPONENT 

8439 

D95 1 

A945 

LDA 

# ' E ' 

; GET ASCII E 

8440 

D953 

A4F2 

LDY 

CIX 

; GET POINTER 

8441 

D955 

209FDC 

JSR 

! STCHAR 

; STORE CHARACTER 

8442 

8443 

D958 

84F2 

; 

STY 

CIX 

; SAVE INDEX 


8444 

8445 D95A A5ED 

8446 D95C 100B 

8447 

8448 

8449 


LDA 

BPL 


EEXP 
! EPL 


GET EXPONENT 
BR IF PLUS 


EXPONENT IS MINUS - COMPLEMENT IT 


m 
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• 

8450 D95E A900 


LDA 

#0 


8451 D960 38 


SEC 



8452 D9S1 E5ED 


SBC 

EEXP 

• 

8453 D963 85ED 


STA 

EEXP 


8454 

i 




8455 D965 A92D 


LDA 

# / ~ / 


8456 D967 D002 


BNE 

! EF2 


8457 

i 



10 

8458 

! EPL 



• 

8459 D969 A92B 


LDA 

# '+' 

f — 

8460 

! EF2 




8461 D96B 209FDC 


JSR 

ISTCHAR 


8462 

i 




8463 D96E A200 


LDX 

#0 

u 

8464 D970 A5ED 


LDA 

EEXP 

9 

8465 

# 




8466 

! EF3 



i9 r 

8467 D972 38 


SEC 



8468 D973 E90A 


SBC 

#10 

i-. 

8469 D975 9003 


BCC 

! EF4 


8470 D977 E8 


INX 


m 

8471 D978 DOFS 


BNE 

! EF3 


8472 

} 




8473 

! EF4 




8474 D97A 18 


CLC 



8475 D97B 690A 


ADC 

#10 

20 

8476 D97D 48 


PHA 


# 

8477 

i 



30 

8478 D97E 8A 


TXA 



8479 D97F 209DDC 


JSR 

! STNUM 


8480 D982 68 


PLA 



8481 D983 0980 


ORA 

#$80 

34 

8482 D985 209DDC 


JSR 

! STNUM 


8483 





8484 

) 

FINAL 

ADJUSTMENT 


8485 

) 



• 

8486 

! FN5 



39 p 

8487 D98S AD8005 


LDA 

LBUFF 

<0 

8488 D98B C930 


CMP 

# 'O' 

• 

8489 D98D DOOD 


BNE 

! FN4 


8490 





8491 

i 

INCREMENT INBUFF 

• 

8492 

i 




8493 D98F 18 


CLC 



8494 D990 A5F3 


LDA 

INBUFF 

m 

8495 D992 6901 


ADC 

#1 


8496 D994 85F3 


STA 

INBUFF 


8497 D996 A5F4 


LDA 

INBUFF+1 

m 

8498 D998 6900 


ADC 

#0 


8499 D99A 85F4 


STA 

INBUFF+1 


8500 

! FN4 



m 

8501 D99C A5D4 


LDA 

FRO 


8502 D99E 1009 


BPL 

•FADONE 


8503 

9 



% 

8504 D9A0 20C1DC 


JSR 

! DEC INB 







SUBTRACT FROM 0 TO COMPLEMENT 

X 

X 


i GET A MINUS 


; GET A PLUS 

; STORE A CHARACTER 

; SET COUNTER FOR # OF TENS 
; GET EXPONENT 


SUBTRACT 10 
IF < 0, BRANCH 
I NCR # OF 10'S 
BR UNCONDITIONAL 


i ADD BACK IN 10 
j X 

) SAVE 

; GET # OF 10 'S 
; PUT 10'S IN EXP IN BUFFER 
i GET REMAINDER 

; TURN ON HIGH ORDER BIT FOR PRINT END 
; PUT IN BUFFER 


; GET 1ST BYTE IN LBUFF (OUTPUT) 
; IS IT ASCII 0? 

; IF NOT BR 

POINT TO NON-ZERO 

; ADD 1 TO INBUFF 

; X 
i X 
i X 
; X 
; X 
; X 

; GET EXPONENT OF # 

; IF SIGN + , WE ARE DONE 


DECR INBUFF 
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8505 

8506 

8507 

8508 

8509 

D9A3 

D9A5 

D9A7 

AOOO 

A92D 

91F3 

LDY 

LDA 

STA 

* 

1 FADGNE 

#0 

( INBUFF), Y 

i GET INDEX 
; GET ASCII - 
i SAVE - IN BUFFER 

8510 

D9A9 

60 

RTS 




8511 
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PAGE 




8512 



* 





8513 



■* 

IFP - CONVERT INTEGER TO 


8514 








8515 




ON ENTRY FRO - 

CONTAINS 


8516 







8 

8517 



■* 

ON EXIT 

FRO - 

CONTAINS 


8518 



* 





8519 



* 





8520 



CVIFP 





8521 



IFP 





8522 



i 





8523 



i 

MOVE INTEGER AND 

REVERSE 


8524 



♦ 

i 





8525 

D9AA 

A5D4 


LDA 

FRO 

i 


e526 

D9AC 

85F8 


STA 

ZTEMP4+1 

j 


8527 

D9AE 

A5D5 


LDA 

FRO+1 



8528 

D9B0 

85F7 


STA 

ZTEMP4 

* 


8529 



/ 





8530 

D9B2 

2044DA 


JSR 

ZFRO 

i 


8531 

D9B5 

F8 


SED 

l 

j 


8532 



■# 





8533 



* 

DO THE 

CONVERT 



8534 



•* 





8535 

D9B6 

AO 10 


LDY 

#16 

> 


8536 



! IFP 1 





8537 

D9B8 

06F8 


ASL 

ZTEMP4+1 



8538 

D9BA 

26F7 


ROL 

Z TEMP 4 



8539 








8540 



i 




22 

8541 

D9BC 

A203 


LDX 

#3 

# 


8542 



! IFP2 




34 

8543 








8544 




DOUBLE 

# AND ADD 

IN 1 IF 


8545 








8546 

D9BE 

B5D4 


LDA 

FRO, X 


38 

8547 

D9C0 

75D4 


ADC 

FRO, X 



8548 

D9C2 

95D4 


STA 

FRO, X 



8549 

D9C4 

CA 


DEX 




8550 

D9C5 

D0F7 


BNE 

! I FP2 



8551 



£ 





8552 

D9C7 

88 


DEY 




8553 

D9C8 

DOEE 


BNE 

! I FP 1 



8554 

D9CA 

D8 


CLD 




8555 








8556 




SET EXPONENT 



8557 








8558 

D9CB 

A942 


LDA 

#$42 



8559 

D9CD 

85D4 


STA 

FRO 



8560 








8561 

D9CF 

4C00DC 


JMP 

NORM 



8562 



i 





GET INTEGER LOW 
SAVE AS INTEGER HIGH 
GET INTEGER HIGH 
SAVE AS INTEGER LOW 

CLEAR FRO 

SET DECIMAL MODE 


; GET # BITS IN INTEGER 

SHIFT LEFT INTEGER LOW 
SHIFT LEFT INTEGER HIGH 
CARRY NOW SET IF THERE WAS A BIT 

; BIGGEST INTEGER IS 3 BYTES 


GET BYTE 

DOUBLE (ADDING IN CARRY FROM SHIFT) 
SAVE 

DECREMENT COUNT OF FRO BYTES 
IF MORE TO DO, DO IT 

DECR COUNT OF INTEGER DIGITS 
IF MORE TO DO, DO IT 
CLEAR DECIMAL MODE 


INDICATE DECIMAL AFTER LAST DIGIT 
STORE EXPONENT 

; NORMALIZE 
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8564 

■* 

PAGE 

8565 

* 

FP I — CONVERT 

8566 

* 


8567 

* 

ON ENTRY FRO 

8568 

* 


8569 

* 

ON EXIT FRO 

8570 

* 


8571 

* 


8572 

* 

CC SET CARRY < 

8573 

It 

CARRY ! 

8574 

#• 


8575 

•* 


8576 

FP I 


8577 

i 


8578 

# 

CLEAR INTEGER 

8579 





FRO - INTEGER 


NO ERROR 


8580 D9D2 A900 

8531 D9D4 35F7 

8532 D9D6 85F3 

8533 

8584 

8585 

8586 D9D8 A5D4 

8587 D9DA 3066 

8588 D9DC C943 

8589 D9DE B062 

8590 D9E0 38 

8591 D9E1 E940 

8592 D9E3 903F 

8593 

8594 

8595 

8596 


LDA 

STA 

STA 


#0 

2 TEMP 4 
ZTEMP4+1 


i CLEAR INTEGER RESULT 


CHECK EXPONENT 


LDA 

BMI 

CMP 

BCS 

SEC 

SBC 

BCC 


FRO 
! ERVAL 
#$43 
! ERVAL 

#$40 

•ROUND 


GET # OF DIGITS TO CONVERT 
(A CONTAINS EXPONENT -40) 
(CARRY SET) 


; GET EXPONENT 

; IF SIGN OF FP# IS -, THEN ERROR 
; IS FP# TOO BIG TO BE INTEGER 
IF YES, THEN ERROR 
SET CARRY 

IS FP# LESS THAN 1? 

IF YES, THEN GO TEST FOR ROUND 

(EXPONENT -40+1) *2 


8598 D9E5 6900 

J 

ADC 

#0 

8599 D9E7 OA 


ASLA 


8600 D9E8 B5F5 


STA 

ZTEMP 1 

8601 




8602 


DO CONVERT 

8603 

* 



8604 

! FP 1 1 



8605 

i 



8606 

i 

MULT 

INTEGER RES 

8607 

i 


8608 D9EA 205ADA 


JSR 

! ILSHFT 

8609 D9ED B053 


BCS 

1 ERVAL 

8610 

i 



8611 D9EF A5F7 


LDA 

ZTEMP4 

8612 D9F1 85F9 


STA 

ZTEMP3 

8613 D9F3 A5F8 


LDA 

ZTEMP4+1 

8614 D9F5 85FA 


STA 

ZTEMP3+1 

8615 

i 



8616 D9F7 205ADA 


JSR 

! ILSHFT 

8617 D9FA B046 


BCS 

! ERVAL 


ADD IN CARRY 
MULT BY 2 
SAVE AS COUNTER 


GO SHIFT ONCE LEFT 
IF CARRY SET THEN # TO BIG 

SAVE INTEGER *2 
X 
X 
X 

MULT BY *2 
# TO BIG 


PAGE 


8618 

8619 

8620 
8621 
8622 

8623 

8624 

8625 

8626 

8627 

8628 

8629 

8630 

8631 

8632 

8633 DA 10 

8634 DAI 3 

8635 DAI 4 

8636 DA 16 

8637 DAIS 

8638 DAI A 

8639 DA 1C 

8640 DA IE 

8641 

8642 

8643 

8644 

8645 

8646 

8647 

8648 

8649 

8650 

8651 

8652 

8653 

8654 

8655 

8656 

8657 

8658 

8659 

8660 
8661 
8662 

8663 

8664 

8665 

8666 

8667 

8668 

8669 

8670 

8671 

8672 DA42 38 
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D9FC 

205ADA 

JSR 

! ILSHFT 

D9FF 

B041 

BCS 

! ERVAL 

DA01 

18 

i 

CLC 


DA02 

A5F8 

LDA 

ZTEMP4+1 

DA04 

65FA 

ADC 

ZTEMP3+1 

DA06 

85F8 

STA 

ZTEMP4+1 

DA08 

A5F7 

LDA 

ZTEMP4 

DAOA 

65F9 

ADC 

ZTEMP3 

DAOC 

85F7 

STA 

ZTEMP4 

DAOE 

B032 

BCS 

.'ERVAL 


20B9DC 

18 

65F8 

S5F8 

A5F7 

6900 

B024 

S5F7 


ADD IN NEXT DIGIT 


JSR 

CLC 

ADC 

STA 

LDA 

ADC 

BCS 

STA 


! GETDIG 

Z TEMP 4+1 
ZTEMP4+1 
ZTEMP4 
#0 

! ERVAL 
ZTEMP4 


DA20 

DA22 

C6F5 
DOC 6 

i 

i 

DEC 

BNE 

ROUND 

Z TEMPI 
! FP 1 1 

IF NEEDED 



! ROUND 



DA24 

20B9DC 


JSR 

! GETDIG 

DA27 

C905 

— i . 

CMP 

#5 

DA29 

900D 


BCC 

! NR 

DA2B 

18 


CLC 


DA2C 

A5F8 



LDA 

ZTEMP4+1 

DA2E 

6901 


ADC 

#1 

DA30 

S5FS 


STA 

ZTEMP4+1 

DA32 

A5F7 


LDA 

ZTEMP4 

DA34 

6900 


ADC 

#0 

DA36 

85F7 

. 

STA 

ZTEMP4 



\ 

\ 

MOVE INTEGER TO 



•NR 



DA38 

A5FS 


LDA 

ZTEMP4+1 

DA3A 

S5D4 


STA 

FRO 

DA3C 

A5F7 


LDA 

ZTEMP4 

DA3E 

S5D5 


STA 

FRO+1 

DA40 

18 

f 

CLC 


DA41 

60 


RTS 



! ERVAL 


SEC 


> MULT BY *2 (NOW * 8 IN ZTEMP4) 
; BR IF # TO BIG 

} ADD IN 2 TO = #10 
; X 
; X 
; X 
; X 
; X 
; X 

i IF CARRY SET ERROR 


; GET DIGIT IN A 


ADD IN DIGIT 
X 
X 
X 

BR IF OVERFLOW 


i DEC counter of digits TO DO 

i IF MORE TO DO, DO IT 


GET NEXT DIGIT IN A 
IS DIGIT <5? 

IF YES, DON 'T ROUND 

ADD IN 1 TO ROUND 

X 

X 

X 

X 

X 

X 


; GET INTEGER LOW 
; SAVE 

; GET INTEGER HIGH 
; SAVE 

; CLEAR CC FOR GOOD RETURN 


; SET CARRY FOR ERROR RETURN 
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8673 DA43 60 RTS 

8674 

•wm" .-wi •*.- T J ' 1 1,1 1W -. T - -t t'- — • — ? . ■ ■■ — ■ « • ■ ■ .■ ■ . ■ 


























t.hfai'M i i t 










" 7 ” 


— r — - — — 




















w 
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8675 


•* 








8676 


•* 

ZFRO - 

ZERO FRO 




m 


3677 


•K- 








8678 



ZF1 - 

ZERO 6 BYTFS AT 

LOC 

y 




8679 


#• 



A 


m 

8 ■::•;■■ 

8680 


* 

ZXLY - 

ZERO PAGE ZERO 

LOC 

X FOR LENGTH Y 




8681 


•K- 






10 

8682 


i 






m 


8683 


ZFRO 








8684 DA44 

A2D4 


LDX 

#FRO 

. 

GET POINTER TO 

FR 1 



8685 


} 




in i 


8686 


ZF1 








8687 DA46 

A006 


LDY 

#6 


GET # OF BYTES 

TO CLEAR 

16 

8688 


ZXLY 




w 


8689 DA48 

A900 


LDA 

#0 

} 

CLEAR A 




8690 


! ZF2 







8691 DA4A 

9500 


STA 

0, X 

i 

CLEAR A BYTE 


£ 


8692 DA4C 

E8 


INX 


t 

POINT TO NEXT 

BYTE 



8693 DA4D 

88 


DEY 



DEC COUNTER 




8694 DA4E 

DOFA 


BNE 

! ZF2 

i 

LOOP 


m 


8695 DA50 

60 


RTS 





24 


8696 


i 






25 


8697 


i 








8698 


i 






27 


8699 








28 


8700 


> / 

INTLBF 

~ INIT LBUFF INTO 

INBUFF 


• 


8701 


i 






3a 


8702 


INTLRF 







8703 DA51 

A905 


LDA 

#LBUFF/256 




• 


8704 DA53 

85F4 

■ i 

8TA 

INBUFF+i 





8705 DA55 

A980 


LDA 

#LBUFF&255 




34 


8706 DA57 

S5F3 


STA 

INBUFF 




# 


8707 DA59 

60 


RTS 






8708 
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8709 

8710 

8711 

8712 

8713 

8714 DA5A 18 

8715 DA5B 26F8 

8716 DA5D 26F7 

8717 DA5F 60 

8718 


PAGE 


* 

# 

ILSHFT 
! ILSHFT 


! ILSHFT - SHIFT INTEGER IN ZTEMP4 LEFT ONCE 


CLC 

ROL 

ROL 

RTS 


ZTEMP4+1 

ZTEMP4 


; CLEAR CARRY 
i SHIFT LOW 
; SHIFT HIGH 









IV 
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8719 


PAGE 
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\ ' 
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PAGE 


8720 


* 

8721 


* 

8722 


* 

8723 


* 

8724 


* 

8725 


* 

8726 


« 

8727 


* 

8728 



8729 


* 

8730 


* 

8731 


* 

8732 



8733 


#• 

8734 


■* 

8735 


* 

8736 


•* 

8737 


* 

8738 


* 

8739 


# 

8740 


■* 

8741 


FSUB 


FADD - FLOATING POINT ADD ROUTINE 
ADDS VALUES IN FRO AND FR1 


ON ENTRY 
ON EXIT 


FRO & FR1 - CONTAIN # TO ADD 
FRO - RESULT 


FSUB - FLOATING POINT SUBTRACT ROUTINE 
SUBTRACTS FR 1 FROM FRO 

ON ENTRY FRO & FR 1 - CONTAIN # TO SUBTRACT 

ON EXIT FRO - RESULT 

BOTH RETURN WITH CC SET: 

CARRY SET IF ERROR 
CARRY CLEAR IF NO ERROR 




8742 DA60 A5E0 

8743 DA62 4980 

8744 DA64 85E0 

8745 

8746 

8747 

8748 

8749 

8750 DA66 A5E0 

8751 DA68 297F 

8752 DA6A 85F7 

8753 DA6C A5D4 

8754 DA6E 297F 

8755 DA70 38 

8756 DA7 1 E5F7 

8757 DA73 1010 

8758 

8759 

8760 


LDA 

EOR 

STA 


FR 1 
#$80 
FR 1 


GET EXPONENT OF FR 1 
CHANGE SIGN OF MANTISSA 
SAVE EXPONENT 


FADD 
! FRADD 




LDA 

AND 

STA 

LDA 

AND 

SEC 

SBC 

BPL 


FR 1 




#$7F 
Z TEMP 4 
FRO 
#$7F 

ZTEMP4 
! NSWAP 




FR 1 


GET EXPONENT 
TURN OFF MANTISSA SIGN BIT 
SAVE TEMPORARILY 
GET EXPONENT FRO 
TURN OFF MANTISSA SIGN BIT 
CLEAR CARRY 
SUB EXPONENTS 
IF EXP ( FRO > >= EXP < FR 1 > 


NO SWAP 


SWAP FRO AND FR 1 


8761 

8762 

DA75 

A205 

LDX 

#FMPREC 

8763 

8764 

DA77 

B5D4 

* SWAP 

LDA 

FRO, X 

8765 

DA79 

B4E0 

f nv 

FR 1 , X 
FR1, X 

8766 

DA7B 

95E0 

i— Lf T 

STA 

8767 

DA7D 

98 

TYA 


8768 

8769 

DA7E 

DA80 

95D4 

CA 

STA 

DEX 

FRO, X 

8770 

DA81 

1 0F4 

BPL 

! SWAP 

8771 

DA83 

30E1 

BMI 

! FRADD 

8772 



i 



; GET INDEX 


GET BYTE FROM FRO 
GET BYTE FROM FR 1 
PUT FRO BYTE IN FR 1 
GET FR 1 BYTE 
PUT FR 1 BYTE IN FRO 
DEC INDEX 

IF MORE TO DO, GO SWAP 
UNCONDITIONAL 


8773 


! NSWAP 
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8774 

8775 

8776 

8777 

8778 

8779 

8780 

8781 

8782 

8783 

8784 

8785 

8786 

8787 

8788 

8789 


DA85 F007 
DA87 C905 
DA89 BO 19 


DA8B 203EDC 


BEQ 

CMP 

BCS 


JSR 


!N ALIGN 
#FMPREC 
! ADDEND 


RSHFT1 




DA8E F8 
DA8F A5D4 
DA9 1 45E0 
DA93 30 IE 


INALIGN 


TEST FOR LIKE SIGN OF 


SED 

LDA 

EOR 

BMI 


FRO 
FR1 
! SUB 


8791 

9 

i 

HiUU 

l-KU & l-Kl 

8792 DA95 A204 


LDX 

#FMPREC-1 

8793 DA97 18 


CL C 


8794 

! ADD1 



8795 DA98 B5D5 

/ 

LDA 

FROM, X 

8796 DA9A 75E1 


ADC 

FR1M, X 

8797 DA9C 95D5 


STA 

FROM, X 

8798 DA9E CA 


DEX 


8799 DA9F 10F7 


BPL 

! ADD1 

8800 

i 



8801 DAA1 D8 


CLD 


8802 DAA2 B003 


BCS 

! ADD2 . 

8803 

! ADDEND 



8804 DAA4 4C00DC 


JMP 

NORM 

8805 

j 



8806 

} 

ADD 

IN FIND CARRY 

8807 

i 



8308 

! ADD2 



8309 DAA7 A901 


LDA 

#1 

8810 DAA9 203ADC 


JSR 

RSHFTO 

sail 

i 



8312 DAAC A901 


LDA 

#01 

8813 DAAE 85D5 


STA 

FROM 

8314 DABO 4C00DC 


JMP 

NORM 

8815 




8816 


SUBTRACT FR1 FROM FRO 

8817 




8818 

! SUB 



8819 DAB 3 A204 


LDX 

#FMPREC— 1 

8820 DAB 5 38 


SEC 


8821 

9 



8822 

! SUB 1 



8323 DAB 6 B5D5 


LDA 

FROM, X 

8824 DA38 F5E1 


SBC 

FR1M, X 

8325 DABA 95D5 


STA 

FROM, X 

8826 DABC CA 


DEX 


8827 DABD 10F7 


BPL 

! SUB 1 

8328 

9 




; IF DIFFERENCE = 0, ALREADY ALIGNED 
i IS DIFFERENCE < # OF BYTES IN MANTISSA"' 
* IF NOT, HAVE RESULT IN FRO 


i SHIFT TO ALIGN 
MANTISSA 


; SET DECIMAL MODE 
; GET FRO EXPONENT 
; EOR WITH FR1 EXPONENT 
> IF SIGNS DIFFERENT - SUBTRACT 
; ELSE ADD 


; GET POINTER FOR LAST BYTE TO ADD 
; CLEAR CARRY 

; GET BYTE OF FRO 
; ADD IN BYTE OF FR1 
i STORE 
i DEC POINTER 
i ADD NEXT BYTE 

; CLEAR DECIMAL MODE 
; IF THERE IS A CARRY, DO IT 

; GO NORMALIZE 


; GET 1 TIMES TO SHIFT 
; GO SHIFT 

; GET CARRY 
; ADD IN CARRY 


; GET POINTER TO LAST BYTE TO SUB 
i SET CARRY 


; GET FRO BYTE 
; SUB FR1 BYTE 
; STORE 
; DEC POINTER 
; SUB NEXT BYTE 


























; IF THERE IS A BORROW DO IT 
i CLEAR DECIMAL MODE 


i GET EXPONENT 
; CHANGE SIGN OF MANTISSA 
; PUT IT BACK 


; SET CARRY 
; GET INDEX COUNTER 

i GET ZERO 
; COMPLEMENT BYTE 
; STORE 
i MORE TO DO 
; BR IF YES 

; CLEAR DECIMAL MODE 
i GO NORMALIZE 


1 






k?9 


I 

34 

k 


39 

40 

i 


43 . 
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8854 

8855 

8856 

8857 

8858 
885? 
8860 
8861 
8862 
8363 

8864 

8865 

8866 
8867 
8863 

8869 

8870 

8871 

8872 

8873 

8874 

8875 

8876 

8377 

8378 
8879 
8380 
8881 
8882 

8883 

8884 

8885 

8886 

8887 

8888 

8889 

8890 

8891 

8892 

8893 

8894 


DADB 

DADD 

DADF 

DAE1 


A5D4 

F045 

A5E0 

F03E 


DAE3 
DAE6 
DAE 7 
DAE9 
DAEA 
DAEC 


20CFDC 

38 

E940 

38 

65E0 

3033 


DAEE 20E0DC 


8895 


DAF1 

DAF3 

DAF5 


A5DF 

290F 

S5F6 


55 | 

i 


8896 

8897 

8898 

8899 

8900 

8901 

8902 

8903 

8904 

8905 

8906 

8907 


DAF7 

DAF9 

DAFB 

DAFE 


C6F6 
3006 
200 1DD 
4CF7DA 


* 

* 

■» 

* 

* 

•* 

# 

* 

* 

-K- 

# 

FMUL 


* 

i 

} 


> 

•* 

# 

■K- 

! FRM 


! FR M 1 


PAGE 


FPMULT - MULTIPLY FRO BY FR 1 
ON ENTRY # ARE IN FRO AND FR 1 


ON EXIT FRO - CONTAINS PRODUCT 
RETURN WITH CC SET 

CARRY SET IF ERROR 
CARRY CLEAR IF NO ERROR 


SET UP EXPONENT 


LDA 

BEG 

LDA 

BEG 


JSR 

SEC 

SBC 

SEC 

ADC 

BMI 


FRO 

GET EXP FRO 

MEND3 

IF = 0/ DONE 

FR 1 

GET FR1 EXP 

MEND2 

IF =0, ANSWER =0 

MDESUP 

DO COMMON SET FOR EXPONENT 


SET CARRY 

#$40 

SUB EXCESS 64 


SET CARRY TO ADD 1 

FR 1 

ADD 1 + FR 1 EXP TO FRO EXP 

! EROV 

IF - THEN OVERFLOW 


FINISH MULTIPLY SET UP 


JSR 


MDSUP 


; DO SET UP COMMON TO DIVIDE 


DO THE MULTIPLY 


GET # OF TIMES TO ADD IN MULTIPLICAND 


LDA 

AND 

STA 


FRE+FMPREC 

#$0F 

ZTEMP1+1 


GET LAST BYTE OF FRE 

AND OUT HIGH ORDER NIBBLE 

SET COUNTER FOR LOOP CONTROL 


ADD IN FR 1 


DEC 

BMI 

JSR 

JMP 


ZTEMP1+1 
IFRM2 
FRA10 
f FRM1 


DEC MULT COUNTER 
IF - THIS LOOP DONE 
ADD FR1 TO FRO <6 BYTES) 
REPEAT 


GET # OF TIMES TO ADD IN MULTIPLICAND * 10 





! FR M2 
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8908 

D2301 

A5DF 


LDA 

FRE+FMPREC 

I 

GET LAST BYTE OF FRE 

8909 

DB03 

4A 


LSRA 


I 

SHIFT OUT LOW ORDER NIBBLE 

8910 

DB04 

4A 


LSRA 


i 

X 

8911 

DB05 

4A 


LSRA 


l 

X 

8912 

DB06 

4A 


LSRA 


i 

X 

8913 

DB07 

85F6 


STA 

ZTEMP1+1 

i 

SAVE AS COUNTER 

8914 



J 





8915 



* 

ADD IN 

FR2 



8916 



i 





8917 



! FRM3 





8918 

DB09 

C6F6 


DEC 

ZTEMP1+1 

» 

DECREMENT COUNTER 

8919 

DBOB 

3006 


BMI 

! NXTB 

i 

IF DO NEXT BYTE 

8920 

DBOD 

2005DD 


JSR 

FRA20 

j 

ADD FR2 TO FRO <6 BYTES) 

8921 

DB 1 0 

4C09DB 


JMP 

! FRM3 

i 

REPEAT 

8922 



i 





8923 



i 

SET UP 

FOR NEXT SET OF 

ADDS 


8924 > 

8925 ! NXTB 

8926 ; 

8927 ; SHIFT FRO/FRE RIGHT ONE BYTE 

8928 i (THEY ARE CONTIGUOUS) 

8929 ; 

8930 DS 1 3 2062DC JSR RSHFOE » SHIFT FRO/FRE RIGHT 

8931 ; 

8932 ; TEST FOR # OF BYTES SHIFTED 

8933 4 -. 

8934 DB16 C6F5 DEC ZTEMP1 ; DECREMENT LOOP CONTROL 

8935 DB 1 8 D0D7 BNE ! FRM ; IF MORE ADDS TO DO, DO IT 

8936 ; 

8937 ; SET EXPONENT 

8938 ; 

8939 _ MDEND 


8940 DB1 A A5ED 

8941 DB 1 C 85D4 
8942 


LDA 

STA 

8943 

} 


8944 

MEND1 


8945 DS1E 4C04DC 


JMP 

8946 

i 


8947 

i 


8948 



8949 

MEND2 


8950 DB21 2044DA 


JSR 

8951 

MEND3 


8952 DB24 18 


CLC 

8953 DB25 60 


RTS 

8954 

i 


8955 

i 


8956 

i 


8957 

•EROV 


8958 DB26 38 


SEC 

8959 DB27 60 


RTS 

8960 




EEXP 

FRO 


N0RM1 


ZFRO 



; GET EXPONENT 
; STORE AS FRO EXP 


; NORMALIZE 


> CLEAR FRO 

; CLEAR CARRY FOR GOOD RTN 


I 

f 


SET CARRY FOR ERROR ROUTINE 
RETURN 
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PAGE 


8961 

•* 




8962 


FPDIV - 

FLOATING POINT DIVIDE 

8963 

* 




8964 

* 

ON ENTRY FRO - DIVIDEND 


8965 

* 


FR1 - DIVISOR 


8966 

•K- 




8967 

•* 

ON EXIT 

FRO - QUOTIENT 


8968 

* 




8969 

•* 

RETURNS 

WITH CC SET: 


8970 



CARRY CLEAR - ERROR 

8971 

* 


CARRY SET - NO ERROR 

8972 

* 




8973 

* 




8974 

FDIV 




8975 

i 




8976 


nn mviDF rft vup 


8977 

i 




8978 D328 A5E0 


LDA 

FR1 ; 

GET FR1 EXP 

8979 DB2A FOFA 


BEQ 

! EROV ; 

IF ~0, THEN OVERFLOW 

8980 DB2C A5D4 


LDA 

FRO ; 

GET EXPONENT FRO 

8981 DB2E F0F4 


BEQ 

MEND 3 ; 

IF = 0, THEN DONE 

8982 





8983 DB30 20CFDC 


JSR 

MDESUP ; 

DO COMMON PART OF EXP SET UP 

8984 

f 




8985 DB33 38 


SEC 



8986 DB34 E5E0 


SBC 

FR1 ; 

SUB FR1 EXP FROM FRO EX 

8987 DB36 18 


CLC 



8988 DB37 6940 


ADC 

#$40 ; 

ADD IN EXCESS 64 






8989 DB39 30EB 


BMI 

! EROV ; 

IF MINUS THEN OVERFLOW 

8990 

/ 




8991 DB3B 20E0DC 


JSR 

MDSUP ; 

DO SETUP COMMON FOR MULT 

8992 DB3E E6F5 


INC 

ZTEMP1 ; 

LOOP 1 MORE TIME FOR DIVIDE 

8993 DB40 4C4EDB 


JMP 

! FRDl ; 

SKIP SHIFT 1ST TIME THROUGH 

8994 





8995 00D9 

QTEMP 

EQU 

FRO+FMPREC 


8996 

f NXTQ 




8997 

• 

i 




8998 

i 

SHIFT FRO/FRE LEFT ONE BYTE 

8999 

t 


(THEY ARE CONTIGUOUS) 

9000 





9001 DB43 A200 


LDX 

#0 ; 

GET POINTER TO BYTE TO MOVE 

9002 

f NXTQl 


' • ■ 


9003 DB45 B5D5 


LDA 

FRO+1 ; X ; 

GET BYTE 

9004 DB47 95D4 


STA 

FRO, X ; 

MOVE IT LEFT ONE BYTE 

9005 

i 




9006 DB49 E8 


INX 


POINT TO NEXT BYTE 

9007 D34A EOOC 


CPX 

#FMPREC*2+2 ; 

HAVE WE DONE THEM ALL? 

9008 DB4C D0F7 


BNE 

! NXTQl ; 

IF NOT, BRANCH 

9009 

* 




9010 

■* 

DO DIVIDE 


9011 

•«- 




9012 

i FRDl 




9013 

i 




9014 

. 

i 

SUBTRACT 

FR2 (DIVISOR * 2 

> FROM FRE (DIVIDEND) 
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9015 

i 






9016 

l 






9017 DB4E A005 


LDY 

#FMPREC 



SET LOOP CONTROL 

9018 DB50 38 


SEC 




SET CARRY 

9019 DB51 F8 


SED 




SET DECIMAL MODE 

9020 

! FRS2 






9021 DB52 B9DA00 


LDA 

FRE, Y 



GET A BYTE FROM FRE 

9022 DB55 F9E600 


SBC 

FR2, Y 



SUB FR2 

9023 DB58 99DA00 


STA 

FRE, Y 



STORE RESULT 

9024 DB 5B 88 


DEY 




DEC COUNTER 

9025 D35C 10F4 


BPL 

! FRS2 



BR IF MORE TO DO 

9026 DB5E D8 


CLD 




CLEAR DECIMAL MODE 

9027 

i 






9028 DB5F 9004 


BCC 

! FAIL 


> 

IF RESULT < 0 (FRE < FR2 ) BR 

9029 







9030 DBol E6D9 


INC 

GTEMP 


i 

INCR # TIMES SUB (QUOTINT) 

9031 







9032 DB63 D0E9 


BNE 

! FRD1 


} 

SUB AGAIN 

9033 







9034 


fjijrtract nr fro 

DIDN'T 

GO 


9035 

j 






9036 

.‘FAIL 






9037 DB65 200FDD 


JSR 

FRA2E 


. 

ADD FRP BACK TO FRO 

9038 






rnuu r iac. un’wrX i u r F\ \_/ 

9039 

i 

SHIFT 

LAST BYTE 

OF QUOTIENT ONE NIBBLE LEFT 

9040 







9041 DB68 06D9 


ASL 

QTEMP 



SHIFT 4 BITS LEFT 

9042 DB6A 06D9 


ASL 

GTEMP 



X 

9043 DB6C 06D9 


ASL 

QTEMP 



y 

9044 DB6E 06D9 


ASL 

QTEMP 



A 

X 

9045 

! FRD2 






9046 







9047 

} 

SUBTRACT FR 1 (DIVISOR) 

FROM FRE (DIVIDEND) 

9048 

i 






9049 

• 






9050 DB70 A005 


LDY 

#FMPREC 



SET LOOP CONTROL 

9051 DB72 38 


SEC 




SET CARRY 

9052 DB73 F8 


SED 




qFT DFCTMAI MODF 

9053 

! FR S 1 





w L. I JL/L.V/ A 1 IriL. 1 Iwi/C. 

9054 DB74 B9DA00 


LDA 

FRE, Y 



GET A BYTE FROM FRE 

9055 DB77 F9E000 



FR 1 . Y 



qijR FR1 



w JL> W 

r f\ ± # t 



ov/13 rru 

9056 DB7A 99DA00 


STA 

FRE, Y 



STORE RESULT 

9057 DB7D 88 


DEY 





9058 DB7E 10F4 


BPL 

! FRS1 


# 

BR IF MORE TO DO 

9059 DB80 D8 


CLD 



i 

CLEAR DECIMAL MODE 

9060 

j 






9061 DB81 9004 


BCC 

! FAIL2 


; 

IF RESULT < 0 (FRE < FR 1 ) BR 

9062 

i 






9063 D383 E6D9 


INC 

QTEMP 


i 

INCR # TIMES SUB (QUOTIENT) 

9064 

i 






9065 D385 D0E9 


BNE 

! FRD2 


i 

SUB AGAIN 

9066 

j 






9067 

/ 

SUBTRACT OF FR1 

DIDN'T 

GO 


9068 

i 






9069 

! FA IL2 







/ vo v 


UUU V VWC.7 


UIMfc. 


' r K Ucl 


i SUB AGAIN 


9066 

9067 ; SUBTRACT OF FR1 DIDN'T GO 

9068 j 

9069 ! FAILS 
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9070 

9071 

DB87 

2009DD 

j 

JSR 

FRA1E 

i 

ADD FR1 BACK TO FRO 

9072 

9073 

9074 

DB8A 

DB8C 

C6F5 
DOB 5 

j 

DEC 

BNE 

ZTEMP1 
! NXTQ 

i 

i 

DEC LOOP CONTROL 

GET NEXT GUIOTIENT BYTE 

9075 

9076 

9077 

DB8E 

DB91 

2062DC 

4C1ADB 

JSR 

JMP 

RSHFOE 

MDEND 

i 

i 

SHIFT RIGHT FRO/FRE TO CLEAR EXP 
JOIN MULT END UP CODE 


/ 
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9078 

9079 

9080 

9081 

9082 

9083 

9084 

9085 

9086 

9087 

9088 

9089 DB94 

9090 DB97 

9091 DB99 


20AFDB 

A4F2 

9002 


•* 

* 

-a- 

* 

#■ 

* 

* 

•* 

■a- 

! GETCHAR 


PAGE 

! GETCHAR - TEST INPUT CHARACTER 
ON ENTRY 


ON EXIT 


INBUFF - POINTS TO BUFFER WITH INPUT 
CIX - POINTS TO CHAR IN BUFFER 

CIX - POINTS TO NEXT CHAR 
CC - CARRY CLEAR IF CHAR IS NUMBER 
CARRY SET IF CHAR NOT NUMBER 


9092 

9093 

9094 

9095 

9096 

9097 

9098 

9099 

9100 

9101 

9102 

9103 

9104 


DB9B B1F3 


DB9D 

DB9E 

DBAO 


C8 

84F2 

60 


9115 

9116 

9117 

9118 

9119 

9120 

9121 

9122 

9123 

9124 

9125 

9126 


DBAF A4F2 
DBB1 B1F3 
DBB3 38 
DBB4 E930 
DBB6 9018 
DBB8 C90A 
DBBA 60 


0CHR1 


JSR 

LDY 

BCC 

LDA 


I NY 
STY 
RTS 


TSTNUM 
CIX 
! GCHR 1 

< INBUFF), Y 


CIX 


GO TEST FOR NUMBER 
GET CHARACTER INDEX 
IF CHAR = NUM, SKIP 

GET CHARACTER 


POINT TO NEXT CHAR 
SAVE INDEX 


; SKPBLANK-SKIP BLANKS 

' STARTS AT CIX AND SCANS FOR NON BLANKS 


SKBLANK 

SKPBLANK 


9105 

DBA1 

A4F2 

L DY 

CIX 


9106 

DBA3 

A920 

LDA 

#$20 

} 

} 

9107 



i 



9108 

DBA5 

D1F3 

! SB 1 CMP 

( INBUFF ) . Y 


9109 

DBA7 

D003 

BNE 

\ A INDVr I / | I 

‘SBRTS 

i 

9110 

DBA9 

C8 

I NY 



9111 

DBAA 

D0F9 

niuc 

1 1 


9112 



U fML. 

/ 

• Du 1 

i 

9113 

DBAC 

84F2 

! SBRTS STY 

CIX 

. 

9114 

D3AE 

60 

RTS 


; 


GET A BLANK 

IS CHAR A BLANK 
BR IF NOT 
INC TO NEXT 


; TSTNUM-TEST CHAR AT Cl 
i ~ RTNS CARRY SET 

TSTNUM 


X FOR NUM 
IF NUM 


LDY 

LDA 

SEC 

SBC 

BCC 

CMP 

RTS 


CIX 

< INBUFF), Y 

#$30 
! TSNFAIL 
#$0A 


; GET INDEX 
; AND GET CHAR 

i SUBTRACT ASCLT ZERO 
; BR CHAR< ASCLT ZERO 
; TEST GT ASCLT 9 
; DONE 



m 


t 


M 

m 

m 


n 


t 

34 

I 


> 
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9127 

9128 

9129 


PAGE 


* 

* 

•* 


ITSTCHAR - TEST TO SEE IF THIS CAN BE A NUMBER 


9130 

Q1 Ol 



* ON EXIT 

CC - CARRY 

SET 

IF NOT A # 

9132 



* 

■* 

CARRY 

CLEAR IF A # 

9133 



! TSTCHAR 




9134 

DBBB 

A5F2 

LDA 

CIX 

9 

GET INDEX 

9135 

DBBD 

48 

PHA 


9 

SAVE IT 

9136 

DBBE 

2094DB 

JSR 

'.GETCHAR 

9 

GET CHAR 

9137 

9138 

DBC 1 

90 IF 

BCC 

i 

! RTPASS 

9 

IF = #8 RETURN PASS 

9139 

DBC3 

C92E 

CMP 

' 

9 

IF = D. P. , OK SO FAR 

9140 

DBC5 

F01 4 

BEG 

! TSTN 



9141 

DBC7 

C92B 

CMP 

# ' + ' 

i 

IF = +8 OK SO FAR 

9142 

D3C9 

F007 

BEG 

ITSTN1 



9143 

DBCB 

C92D 

CMP 

#'~ / 

i 

IF = -8 OK SO FAT 

9144 

DBCD 

F003 

BEG 

! TSTN1 



9145 



I 




9146 



9 




9147 



! RTFAIL 




9148 

DBCF 

68 

PLA 


9 

CLEAR STACK 

9149 

D3D0 

38 

! TSNFAIL SEC 


9 

SET FAIL 

9150 

DBD1 

60 

RTS 




9151 



• 




9152 



i 




9153 



! TSTN1 




9154 

DBD2 

2094DB 

JSR 

! GETCHAR 

9 

GET CHAR 

9155 

DBD5 

900B 

BCC 

! RTPASS 

9 

IF #, RETURN PASS 

9156 

DBD7 

C92E 

CMP 

#'. ' 

9 

IS IT D. P. 

9157 

DBD9 

D0F4 

BNE 

‘RTFAIL 

9 

IF NOT, RETURN FAIL 

9158 



! TSTN 




9159 

DBDB 

2094DB 

JSR 

! GETCHAR 

9 

ELSE GET NEXT CHAR 

9160 

D3DE 

9002 

BCC 

! RTPASS 

9 

IF #, RETURN PASS 

9161 

DBEO 

30ED 

BCS 

! RTFAIL 

9 

ELSE, RETURN FAIL 

9162 



/ 




9163 



i 




9164 



! RTPASS 




9165 

D3E2 

68 

PLA 


9 

RESTORE CIX 

9166 

D3E3 

85F2 

STA 

CIX 

9 

X 

9167 

DBE5 

18 

CLC 


9 

CLEAR CARRY 

9168 

D3E6 

60 

RTS 


9 

RETURN PASS 


9169 




PAGE 278 SHEP ATARI EDITOR 
FLOATING POINT ROUTINES 





PAGE 




9170 


* 





9171 



NI3SH0 

~ SHIFT 

FRO 

ONE 

9172 


•* 





9173 


•* 

NIBSH2 

- SHIFT 

FR2 

ONE 

9174 


•i* 





9175 


NIBSH2 





9176 DBE7 

A2E7 


LDX 

#FR2+1 



9177 DSE9 

0002 


BNE 

! NIB 1 



9178 


i 





9179 


NI3SH0 





9180 DBEB 

A2D5 


LDX 

#FROM 



9181 


! NI B 1 





9182 DBED 

A004 


LDY 

#4 



9183 


! N I B S 





9184 DBEF 

18 


CLC 




9185 DBFO 

3604 


ROL 

4> X 



9186 DBF2 

3603 


ROL 

3t X 



9187 DBF4 

3602 


ROL 

2> X 



9188 DBF6 

3601 


ROL 

1> X 



9189 DBF8 

3600 


ROL 

•V f 

0, X 



9190 DBF A 

26EC 


ROL 

FRX 



9191 







9192 DBFC 

88 


DEY 




9193 DBFD 

DOFO 


BNE 

‘NIBS 



9194 DBFF 

60 


RTQ 




9195 


NIBBLE LEFT 
NIBBLE LEFT 


i POINT TO 1ST MANTISSA BYTE OF FR2 


i POINT TO MANTISSA OF FRO 

; GET # OF BITS TO SHIFT 

i CLEAR CARRY 
i ROLL 
; X 
; X 
; X 
; X 

i SAVE SHIFTED NIBBLE 

i DEC COUNT 
; IF NOT = 0, REPEAT 




» 


li 


i 


u 


16 

78 
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9196 

9197 

9198 

9199 

9200 

9201 

9202 

9203 

9204 

9205 

9206 

9207 

9208 

9209 

9210 

9211 

9212 

9213 

9214 

9215 

9216 

9217 

9218 

9219 

9220 

9221 

9222 


DCOO 

DC02 

DC04 

DC06 

DC08 

DCOA 

DCOC 


A200 

86DA 

A204 

A5D4 

F02E 

A5D5 
D01 A 


* 

* 

* 

NORM 


NOR Ml 


PAGE 


NORM ~ NORMMALI ZE FLOATING POINT NUMBER 


NORM 


LDX 

STX 

LDX 

LDA 

BEQ 

LDA 

BNE 


#0 

FRO+FPREC 

#FMPREC—1 
FRO 
! NDONE 

FROM 

ITSTBIG 


SHIFT 1 BYTE LEFT 


DCOE AOOO 


NSH 


DC 1 0 
DC 13 
DC 1 6 
DC 1 7 
DC 1 9 


B9D600 

99D500 

C8 

COOS 

90F5 


LDY 

LDA 
STA 
I NY 
CPY 
BCC 


#0 

FROM+1, Y 
FROM, Y 

#FMPREC 
! NSH 


; GET ZERO 

; FOR ADD NORM SHIFT IN A ZERO 

GET MAX # OF BYTES TO SHIFT 
GET EXPONENT 
IF EXP=0, # =0 

; GET 1ST BYTE OF MANTISSA 
; IF NOT = 0 THEN NO SHIFT 


; GET INDEX FOR 1ST MOVE BYTE 

; GET MOVE BYTE 
; STORE IT 

; ARE WE DONE 
; IF NOT SHIFT AGAIN 


DECREMENT EXPONENT 



9223 

DC IB 

C6D4 


DEC 

FRO 

DECRIMENT EXPONENT 


9224 



J 





9225 

DC 1 D 

CA 


DEX 


DEC COUNTER 


9226 

DC IE 

DOEA 


BNE 

I NORM 

DO AGAIN IF NEEDED 


9227 



i 





9228 



i 




, 7 r 

9229 



i 





9230 

DC20 

A5D5 


LDA 

FROM 

IS MANTISSA STILL 0 


9231 

DC22 

D004 


BNE 

ITSTBIG 

IF NOT, SEE IF TO BIG 


9232 

DC24 

85D4 


STA 

FRO 

ELSE ZERO EXP 


9233 

DC26 

18 


CLC 




9234 

DC27 

60 


RTS 




9235 



i 




4i | 

9236 



ITSTBIG 





9237 

DC28 

A5D4 


LDA 

FRO 

GET EXPONENT 


9238 

DC2A 

297F 


AND 

#$7F 

AND OUT SIGN BIT 


9239 

DC2C 

C97 1 


CMP 

#49+64 

IS IT < 49+64? 


9240 

DC2E 

9001 


BCC 

I TSTUND 

IF YES, TEST UNDERFLOW 


9241 

DC30 

60 


RTS 


SO RETURN 


9242 



! TSTUND 





9243 

DC31 

C90F 


CMP 

#-49+64 

IS IT >=-49+64? 


9244 

DC33 

B003 


BCS 

I NDONE 

IF YES, WE ARE DIONE 


9245 

DC35 

2044DA 


JSR 

ZFRO 

ELSE # IS ZERO 


9246 



i 


> 



9247 



! NDONE 



- 


9248 

DC38 

18 


CLC 


CLEAR CARRY FOR GOOD RETURN 


9249 

DC39 

60 


RTS 
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9250 












► 

> 

15 

a 








21 

22 

► 

24 

25 


- — . — 










I ■ ■ ■ A ■ ' ■*■■■« 






21 

28 










30 
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9251 

9252 

9253 

9254 

9255 

9256 

9257 

9258 

9259 


PAGE 

* 

RSHFTO - SHIFT FRO RIGHT/ INCR EXPONENT 
RSHFT1 - SHIFT FR1 RIGHT/ INCR EXPONENT 

* 0N ENTRY A - # OF PLACES TO SHIFT 

•* 

RSHFTO 




9260 DC3A A2D4 

9261 

9262 

9263 


DC3C D002 


LDX 

BNE 


#FR0 
! RSH 


9264 DC3E A2E0 

9265 

9266 

i 

! RSH 

LDX 

#FR 1 

i 

9267 DC40 36F9 


STX 

ZTEMP3 


9268 DC42 85F7 


STA 

ZTEMP4 


9269 DC44 85F8 


STA 

ZTEMP4+1 


9270 





9271 

‘ RSH2 




, 9272 DC46 A004 


LDY 

#FMPREC~1 

i 

9273 

! RSH1 




9274 DC4S B504 


LDA 

4, X 


9275 DC4A 9505 


STA 

5, X 


9276 DC4C CA 


DEX 



9277 DC4D 88 


DEY 



9278 DC4E D0F8 


BNE 

1 RSH1 


9279 DC 50 A900 


LDA 

#0 


9280 DC 52 9505 


STA 

5, X 


928 1 

J 




9282 DC 54 A6F9 


LDX 

ZTEMP3 


9283 DC56 C6F7 


DEC 

Z TEMP 4 


9284 DC 58 DOEC 


BNE 

! RSH2 


9285 

i 




9286 

> 

FIX 

EXPONENT 


9287 





9288 DC 5 A B500 


LDA 

0, X 

i 

9289 DC5C 18 


CLC 



9290 DC5D 65F8 


ADC 

ZTEMP4+1 

i 

9291 DC5F 9500 


STA 

0, X 


9292 DC61 60 


RTS 



9293 






POINT TO FRO 


POINT TO FR1 


SAVE FR POINTER 

SAVE # OF BYTES TO SHIFT AS COUNTER 
SAVE FOR LATER 


GET # OF BYTES TO MOVE EACH LOOP 

GET CHAR 

STORE CHAR 

POINT TO NEXT BYTE 

DEC LOOP CONTROL 

IF MORE TO MOVE, DO IT 

GET 1ST BYTE- 

STORE IT 

GET FR POINTER 

DO WE NEED TO SHIFT AGAIN? 

IF YES, DO IT 


GET EXPONENT 

SUB # OF SHIFTS 
SAVE NEW EXPONENT 


si 
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PAGE- 


9294 



* 



9295 



* 

RSHFOE 

- SHIFT FRO/FRE 

9296 



•* 

< THEY 

ARE CONTIGUOUS) 

9297 



Jf. 





RSHFOE 



9298 

9299 

DC 62 

A20A 


LDX 

#FMPREC*2 

9300 

9301 



• 



DC64 

B5D4 

f 

! NXTB 1 

LDA 

FRO, X 

9302 

9303 

DC66 

95D5 


STA 

FRO+1, X 


9304 i 

9305 DC6S CA DEX 

9306 DC69 10F9 BPL. 

9307 DC6B A900 LDA 

9308 DC6D S5D4 STA 

9309 DC6F 60 RTS 

9310 


! NXTB 1 
#0 
FRO 


BYTE RIGHT 


; GET LOOP CONTROL 


; GET A BYTE 
; MOVE IT OVER 1 

; DEC COUNTER 
; MOVE NEXT BYTE 
i GET ZERO 
3 SHIFT IT IN 
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9311 

9312 

9313 

9314 

9315 

9316 

9317 

9318 


# 

#■ 

# 

* 

•* 

* 

#• 

! CVFRO 


PAGE 

! CVFRO - CONVERT EACH BYTE IN FRO TO 2 CHARACTERS 
IN LBUFF 

ON ENTRY A - DECIMAL POINT POSITION 


9319 

DC70 

85F7 

STA 

ZTEMP4 

9320 



j 


9321 

DC 72 

A200 

LDX 

#0 

9322 

DC74 

AOOO 

LDY 

#0 

9323 



i 


9324 



; CONVERT A BYTE 

9325 



i 


9326 



! CVBYTE 


9327 

DC 76 

2093DC 

JSR 

! TSTDP 

9328 



! CVB 1 


9329 

DC79 

38 

SEC 


9330 

DC7A 

E901 

SBC 

#1 

9331 

DC7C 

S5F7 

STA 

Z TEMP 4 

9332 





9333 



; DO 1ST 

DIGIT 

9334 



i 


9335 

DC7E 

B5D5 

LDA 

FROM, X 

9336 

DCSO 

4A 

LSRA 

9337 

DC81 

4A 

LSRA 


9338 

DC82 

4A 

LSRA 


9339 

DC83 

4A 

Uh W 1 \ rr 

LSRA 


9340 

DC84 

209DDC 

JSR 

! 3TNUM 

9341 



i 


9342 



i DO SECOND DIGIT 

9343 



i 


9344 

DC87 

B5D5 

LDA 

FROM, X 

9345 

DC39 

290F 

AND 

#*0F 

9346 

DC8B 

209DDC 

JSR 

! STNUM 

9347 





9348 

DC8E 

E8 

INX 


9349 

DC8F 

E005 

CPX 

#FMPREC 

9350 

DC91 

90E3 

BCC 

! CVBYTE 

9351 



i 


9352 



i PUT IN 

DECIMAL 1 

9353 



* 


9354 



! TSTDP 


9355 

DC93 

A5F7 

LDA 

ZTEMP4 

9356 

DC95 

D005 

BNE 

! TST1 

9357 

DC97 

A92E 

LDA 

' 

9358 

DC99 

209FDC 

JSR 

ISTCHAR 

9359 



! TST 1 


9360 

DC9C 

60 

RTS 


9361 






> SAVE DECIMAL POSITION 

; SET INDEX INTO FROM 
; SET INDEX INTO OUTPUT LINE (LBUFF) 


J PUT IN D. P. NOW? 

; DECREMENT DECIMAL POSITION 
; X 

; SAVE IT 


GET FROM FRO 

SHIFT OUT LOW ORDER BITS 
TO GET 1ST DIGIT 
X 
X 

GO PUT # IN BUFFER 


GET NUMBER FROM FRO 
AND OUT HIGH ORDER BITS 
GO PUT # IN BUFFER 

I NCR FRO POINTER 
DONE LAST FRO BYTE? 

IF NOT, MORE TO DO 


GET DECIMAL POSITION 
IF NOT = 0 RTN 
GET ASCII DECIMAL POINT 
PUT D. P. IN BUFFER 
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9362 

■* 

PAGE 

9363 


! STNUM - 

9364 

•* 


9365 

•# 

ON ENTRY 

9366 

* 


9367 

•* 


9368 

* 


9369 

* 

‘STCHAR 

9370 

* 


9371 

! STNUM 


9372 DC9D 0930 


ORA 

9373 

! STCHAR 



9374 DC9F 998005 

9375 DCA2 08 

9376 DCA3 60 

9377 


PUT ASCII NUMBER IN LBUFF 

A - DIGIT TO BE CONVERTED TO ASCII 
AND PUT IN LBUFF 
Y - INDEX IN LBUFF 


STA 

INY 

RTS 


#$30 
LBUFF, Y 


CONVERT TO ASCII 

PUT IN LBUFF 
I NCR LBUFF POINTER 
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0 


0 


► 

*f 

► 

33 | 


9378 

-it- 

PAGE 




9379 

9380 

* 

•ft 

! FNZERO - 

FIND 

LAST NON-ZERO 

CHAR 

9381 

9382 

9383 

* 

•ft 

•ft 

ON EXIT 

A - 
X - 

LAST CHAR 
POINT TO LAST 

CHAR 


9384 


9385 

DCA4 

A20A 


LDX 

9386 





9387 



! FN3 


9388 

DCA6 

BD8005 


LDA 

9389 

DCA9 

C92E 


CMP 

9390 

DCAB 

F007 


REQ 

9391 

DCAD 

C930 


CMP 

9392 

DCAF 

D007 


BNE 

9393 

DCB1 

CA 


DEX 

9394 

DCB2 

D0F2 


BNE 

9395 



i 

i 


9396 


0000 


IF 

9397 




BRK 

9398 




. END IF 

9399 



• 


9400 



! FN1 


9401 

DCB4 

CA 


DEX 

9402 

DCB5 

BD8005 


LDA 

9403 



! FN2 

9404 

DCB8 

60 


RTS 

9405 








/ 













#10 

LBUFF, X 
#'. ' 
IFNI 
#' 0 ' 

! FN2 

!FN3 

DBVER 


LBUFF, X 


POINT TO LAST CHAR IN LBUFF 


GET THE CHARACTER 
IS IT DECIMAL? 

IF YES, BR 
IS IT ZERO? 

IF NOT, BR 
DECREMENT INDEX 
UNCONDITIONAL BR 


; SHOULD NEVER GET HERE 


DECREMENT BUFFER INDEX 
GET LAST CHAR 
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PAGE 

9406 * 

9407 * .‘GETDIG - GET NEXT DIGIT FROM FRO 

9408 * 

9409 * ON ENTRY FRO - # 

9410 * 

9411 * ON EXIT A - DIGIT 

9412 * 

9413 * 

9414 ‘GETDIG 

9415 DC89 20E3DB JSR NIBSHO ; SHIFT FRO LEFT ONE NIBBLE 

9416 ; 

9417 DCBC A5EC LDA FRX ; GET BYTE CONTAINING SHIFTED NIBBLE 

9418 DCBE 290F AND #*0F ; AND OUT HIGH ORDER NIBBLE 

9419 DCCO 60 RTS 

9420 






> 
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to 


Ip 







PAGE 





9421 



* 






9422 



•* ' 

! DECINB 

- DECREMENT 

INBUFF 



9423 









9424 



! DECINB 






9425 

DCC 1 

38 


SEC 


i 

SUBTRACT 


9426 

DCC2 

A5F3 


LDA 

INBUFF 

i 

X 


9427 

DCC4 

E901 


SBC 

#1 


X 


9428 

DCC6 

S5F3 


STA 

INBUFF 

i 

X 


9429 

DCC 8 

A5F4 


LDA 

INBUFF+1 

} 

X 


9430 

DCCA 

E900 


SBC 

#0 


X 


9431 

DCCC 

S5F4 


STA 

INBUFF+1 

i 

X 


9432 

DCCE 

60 


RTS 





9433 












t»r 










19 ! 
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PAGE 


9434 




9435 

* 

MDESUP - 

COMMON SET UP FOR MULTPLY & DIVIDE EXPONENT 

9436 

* 



9437 

* 

ON EXIT 

FR 1 - FR 1 EXP WITH OUT SIGN 

9438 



A - FRO EXP WITHOUT SIGN 

9439 

* 


FRSIGN - SIGN FOR QUOTIENT 

9440 

* 



9441 

MDESUP 




9442 

DCCF 

A5D4 

LDA 

FRO 

9443 

DCD 1 

45E0 

EOR 

FR 1 

9444 

DCD3 

2980 

AND 

#$80 

9445 

DCD5 

85EE 

STA 

FRSIGN 

9446 



• 

* 

- . .. . . 

9447 

DCD7 

06E0 

ASL 

FR 1 

9448 

DCD9 

46E0 

LSR 

FR 1 

9449 

DCDB 

A5D4 

LDA 

FRO 

9450 

DCDD 

297F 

AND 

#$7F 

9451 

DCDF 

60 

RTS 


9452 






GET FRO EXPONENT 
GET FR1 EXPONENT 
AND OUT ALL BUT SIGN BIT 
SAVE SIGN 

SHIFT OUT SIGN IN FR 1 EXP 
RESTORE FR 1 EXP WITHOUT SIGN 
GET FRO EXP 
AND OUT SIGN BIT 
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9453 

9454 

9455 

9456 

9457 

9458 

9459 

9460 

9461 

9462 

9463 

9464 

9465 

9466 

9467 
9466 

9469 

9470 

9471 

9472 

9473 

9474 

9475 

9476 

9477 

9478 

9479 

9480 

9481 

9482 

9483 


DCEO 

DCE2 

DCE4 

DCE6 

DCE8 


05EE 

95ED 

A900 

85D4 

S5E0 


DCEA 2023DD 


DCED 

DCFO 

DCF2 

DCF4 

DCF6 

DCF8 

DCFA 

DCFD 


20E7DB 

A5EC 

290F 

85E6 

A905 

85F5 

2034DD 

2044DA 


DDOO 60 


PAGE 

* MDSUP - COMMON SET UP FOR MULTIPLY AND DIVIDE 

* ON ENTRY A - EXPONENT 

* CC - SET BY ADD OR SUB TO GET A 





* 



MDSUP 

ORA 

FRSIGN 


STA 

EEXP 


LDA 

#0 


STA 

FRO 

i 

STA 

FR1 

} 

JSR 

MVFR12 


JSR 

NIBSH2 


LDA 

FRX 


AND 

#$0F 


STA 

FR2 


LDA 

#FMPREC 


STA 

ZTEMP1 

\ 

JSR 

MVFROE 


JSR 

ZFRO 

\ 

RTS 



; OR IN SIGN BIT 
; SAVE EXPONENT FOR LATER 
i CLEAR A 
; CLEAR FRO EXP 
; CLEAR FRO EXP 


; MOVE FR1 TO FR2 

; SHIFT FR2 1 NIBBLE LEFT 
; GET SHIFTED NIBBLE 
} AND OUT HIGH ORDER NIBBLE 
; STORE TO FINISH SHIFT 

; SET LOOP CONTROL 
; X 

i MOVE FRO TO FRE 
; CLEAR FRO 
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9484 

■* 


9485 

* 

FRA10 

9486 

* 


9487 

■* 

FRA20 

9488 

■* 


9489 

* 

FRA1E 

9490 



9491 

* 

FRA2E 

9492 

*• 


9493 

FRA 10 


9494 DD01 A2D9 


LDX 

9495 DD03 D006 


BNE 

9496 

i 


9497 

FRA20 


9498 DD05 A2D9 


LDX 

9499 DD07 D008 


BNE 

9500 

i 


9501 

FRA IE 


9502 DD09 A2DF 


LDX 

9503 

! FI 


9504 DDOB A0E5 


LDY 

9505 DDOD D004 


BNE 

9506 

FRA2E 


9507 DDOF A2DF 


LDX 

9508 

• F2 


9509 DD1 1 AOEB 


LDY 

9510 

• 

; 


9511 

• 


9512 

> 

* FRA 


9513 DD13 A905 


LDA 

9514 DD1 5 85F7 


STA 

9515 DD1 7 18 


CLC 

9516 DD1S F8 


SED 

9517 

• FR At 



. rtAHA 


9518 DD1 9 B500 


LDA 

9519 DD1B 790000 


ADC 

9520 DD1E 9500 


STA 

9521 DD20 CA 


DEX 

9522 DD21 88 


DEY 

9523 DD22 C6F7 


DEC 



M L. w 

9524 0D24 10F3 


BPL 

9525 DD26 D8 


CLD 

9526 DD27 60 


RTS 

9527 




ADD 

FR 1 

TO 

FRO 

(6 

BYTES) 

ADD 

FR2 

TO 

FRO 

<6 

BYTES) 

ADD 

FR 1 

TO 

FRE 



ADD 

FR2 

TO 

FRE 




#FRO+FMPREC ; POINT TO LAST BYTE OF SUM 

! F 1 


#FRO+FMPREC 

!F2 


#FRE+FMPREC 

#FR 1 +FMPREC 
•FRA 

#FRE+FMPREC 

#FR2+FMPREC 


#FMPREC i GET VALUE FOR LOOP CONTROL 

ZTEMP4 ; SET LOOP CONTROL 

; CLEAR CARRY 
; SET DECIMAL MODE 


0, X ; GET 1ST BYTE OF 

0, Y j ADD 

0> X i STORE 

> POINT TO NEXT BYTE 

; POINT TO NEXT BYTE 

Z TEMP 4 ; DEC COUNTER 

! FRA1 ; IF MORE TO DO; DO IT 

; CLEAR DECIMAL MODE 




0 
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• 
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9528 






9529 



•H- 

MVFR12 

m 

9530 



* 



9531 



MVFR12 


% 

9532 

DD28 

A005 


LDY 

9533 



! MV2 



9534 

DD2A 

B9E000 


LDA 

• 

9535 

DD2D 

99E600 


STA 

9536 



i 



9537 

DD30 

88 


DEY 

• 

9538 

DD 31 

10F7 


BPL 

9539 

DD33 

60 


RTS 


9540 






9541 



i 


# 

9542 



i 



9543 






9544 



* 


m 

9545 




MVFROE 


9546 



* 



9547 



MVFROE 


m 

9548 

DD34 

A005 


LDY 


9549 



! MV 1 


25p 

9550 

DD36 

39D400 


LDA 

0 

9551 

DD39 

99DA00 


STA 

27 1 

9552 






9553 

DD3C 

88 


DEY 

0 

9554 

DD3D 

10F7 


BPL 


9555 

DD3F 

60 


RTS 


9556 





0 























MOVE FR1 TO FR2 


#FMPREC 


SET COUNTER 


FR1, Y 
FR2, Y 


GET A BYTE 
STORE IT 


! MV2 


; DEC COUNTER 
; IF MORE TO MOVE, DO IT 


- MOVE FRO TO FRE 


#FMPREC 


FRO, Y 
FRE, Y 


!MV1 
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9557 

9558 

9559 

9560 

9561 

9562 

9563 

9564 
ERROR 

9565 
ERROR 

9566 

9567 
ERROR 

9568 
ERROR 

9569 

9570 

9571 
ERROR 

9572 
ERROR 

9573 

9574 


* 

* 

* 

* 


PAGE 'POLYNOMAL EVALUATION' 

Y=A ( O ) +A ( 1 >*X+A(2)*X**2+. . . +A < N ) *X**N, N>0 
-< <• • • <A<N)*X+A(N-1 ) )*X + . . . +A < 2 ) ) *X+A ( 1 ) >*X+A<0) 
INPUT: X IN FRO, N+l IN A-REG 

REG (X, Y ) — >A ( N ) . . . A < O ) 

OUTPUT Y IN FRO 

PLYARG 

FLD1R, FADD, FMUL 


DD40 8E0000 
UNDEFINED 
DD43 8C0100 
UNDEFINED 
DD46 S5EF 
DD48 A200 
UNDEFINED 
DD4A AOOO 
UNDEFINED 
DD4C 20B5DD 
DD4F 20C6DD 
DD 52 AEOOOO 
UNDEFINED 
DD55 AC0100 
UNDEFINED 
DD58 2093DD 
C6EF 
F033 
20DSDA 
B02E 
18 

ADOOOO 


* 

* USES FPTR2, PLYCNT, 

* CALLS FSTOR, FMOVE, 

PLYEVL STX FPTR2 

***********************© 

STY FPTR2+1 

*************************<* 

STA PLYCNT 
LDX #PLYARG&*FF 

*****************************© 
LDY #PLYARG/*100 

********************** * **** ** * <t 
JSR FSTOR 

JSR FMOVE 


SAVE POINTER TO COEFF 'S 


SAVE ARG 
ARG->FR1 


LDX 


fptr; 


***********************0 

LDY FPTR2+1 

*************************© 


DD5B 

9575 DD5D 

9576 DD5F 

9577 DD62 

9578 DD64 

9579 DD65 
ERROR UNDEFINED 

9580 DD68 6906 

9581 DD6A 8D0000 
ERROR UNDEFINED 

9582 DD6D 9008 

9583 DD6F ADO 100 
ERROR UNDEFINED 

9584 DD72 6900 

9585 DD74 8D0100 
ERROR UNDEFINED 

9586 DD77 AEOOOO 
ERROR UNDEFINED 

9587 DD7A AC0100 
ERROR UNDEFINED 

9588 DD7P 20A4DD 

9589 DD80 2066DA 

9590 DD83 BOOD 

9591 DD85 C6EF 

9592 DD87 F009 

9593 DD89 A200 
ERROR UNDEFINED 

9594 DD8B AOOO 
ERROR UNDEFINED 

9595 DD8D 20A4DD 

9596 DD90 30CD 


JSR FLDOR 

DEC PLYCNT 

BEG PLYOUT 

PLYEV1 JSR FMUL 

BCS PLYOUT 

CLC 

LDA FPTR2 

***********************£ 
ADC #FPREC 

STA FPTR2 

********************* **<§! 

BCC PLYEV2 

LDA FPTR2+1 

**************** * ******** €! 

ADC #0 

STA FPTR2+1 

********** * ***** * **** * ** * @ 
PLYEV2 LDX FPTR2 

***********************© 

LDY FPTR 2+1 

*************************© 


C0EF->FR0 (I NIT SUM) 

DONE ? 

SUM * ARG 
O' FLOW 

BUMP COEF POINTER 


ACROSS PAGE 


JSR 

JSR 

BCS 

DEC 

BEG 

LDX 


FLD1R 

FADD 

PLYOUT 

PLYCNT 

PLYOUT 

#PLYARG&$FF 


GET NEXT COEF 


SUM*ARG 
0 7 FLOW 

DONE ? 


+ COEF 


*****************************<* 

LDY #PLYARG/*100 

******************************© 


JSR 

BMI 


FLD1R 

PLYEV1 


GET ARG 
< = JMP ) 


AGAIN 





9590 

DD83 BOOD 

BCS 

PLYOUT 

i O' FLOW 

9591 

DD85 C6EF 

DEC 

PLYCNT 


9592 

DDS7 F009 

BEQ 

PLYOUT 

; DONE ? 

9593 

DD89 A200 

LDX 

#PLYARG&*FF 


ERROR 

UNDEFINED 

•B* # ## <j> 


9594 

DD8B AOOO 

LDY 

#PLYARG/*100 


ERROR 

UNDEFINED 

##*###*#*##**********##**■*•*■*■*•*<§! 


9595 

DD8D 20A4DD 

JSR 

FLD1R 

; GET ARG AGAIN 

9596 

DD90 30CD 

BMI 

PL.YEV1 

; <=JMP) 


PAGE 293 SHEP ATARI EDITOR 
POLYNOMAL EVALUATION 


9597 DD92 60 

9598 


PLYOUT RTS 























16 
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9599 

9600 
ERROR 

9601 
ERROR 

9602 

9603 
ERROR 


25 I 


32 


DD93 8E0000 
UNDEFINED 
DD96 8C0100 
UNDEFINED 
DD99 A005 
DD9B B100 
UNDEFINED 

9605 DDAO 88 

DDA1 10F8 
DD A3 60 


9606 

9607 

9608 

9609 

9610 
ERROR 

9611 
ERROR 

9612 

9613 
ERROR 

9614 

9615 

9616 

9617 

9618 

9619 

9620 
ERROR 

9621 
ERROR 

9622 

9623 

9624 
ERROR 


DDA4 8E0000 
UNDEFINED 
DDA7 8C0100 
UNDEFINED 
DDAA A005 
DDAC B100 
UNDEFINED 
DDAE 99E000 
88 
10FS 
60 


DDB 1 
DDB 2 
DDB 4 


DDB 5 8E0000 
UNDEFINED 
DDB 8 8C0100 
UNDEFINED 
DDBB A005 
DDBD B9D400 
DDCO 9100 
UNDEFINED 


PAGE 

* LOAD 

FLDOR STX FLPTR 

#• ***********#*•**■*•*■■«•■* @ 

STY FLPTR+1 

****************■*■#■•»•■*•#•■«■■«■■*•*<* 
FLDOP LDY #FPREC-1 

FLD01 LDA (FLPTR), Y 

•** •»«* •* ■* ■# ***•*•*•**■#••*•*•*•* @ 

“ st at- >ko;t 
DEY 

BPL FLD01 

RTS 

•* 

* LOAD FR1 FROM 

FLD1R STX FLPTR 

•* ***#*##*#**•*■«••«•■«•#*■*•* ■* •* *• @ 

STY FLPTR+1 

##*#*##**** ##**•*#•* •*•**• •*•**••«•€! 
FLD1P LDY #FPREC-1 

FLD1 1 LDA (FLPTR), Y 

STA FR1, Y 

DEY 

BPL FLD11 

RTS 

# 

* STORE FRO IN (X, Y) 

FSTOR STX FLPTR 

STY FLPTR+1 

##*##*##**# *##*tt**tt-8-****#@ 

FSTOP LDY #FPREC-1 

FST01 LDA FRO/ Y 

STA (FLPTR)/ Y 

*####**#######•«• ■a-#-**-#*-#-*-*© 


'FLOATING LOAD/STORE' 

FRO FROM ( X , Y ) X=LSB, Y=MSB, 


USES FLPTR < PGO ) 
SET FLPTR => ( X, Y ) 


# BYTES 
MOVE 


ENTER HERE W/FLPTR SET 


COUNT & LOOP 


( X, Y ) OR 


(FLPTR) 

; FLPTR=> ( X, Y ) 


# BYTES 
MOVE 


ENTER W/FLPTR SET 


COUNT 


LOOP 


OR (FLPTR) 


ENTRY W/FLPTR SET 


9625 DDC2 

9626 DDC3 

88 

10F8 

60 


DEY 

BPL 

RTS 

FST01 

9627 DDC5 

9628 

* 




9629 


# 

MOVE 

FRO TO FR1 

9630 


* 

9631 


MV0TG1 



9632 DDC6 

A205 

FMOVE 

LDX 

#FPREC-1 

9633 DDC8 

B5D4 

FM0VE1 

LDA 

FRO/ X 

9634 DDCA 

95E0 


STA 

FR 1 / X 

9635 DDCC 

CA 


DEX 


9636 DDCD 

1 0F9 


BPL 

FMOVE 1 

9637 DDCF 

9638 

60 


RTS 



t 

i 
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'EXP ( X ) 8< EXP 1 0 ( X ) ' 

9639 DDDO A299 

EXP 

LDX 

#L0G10E$<$FF 

i E**X = 10**< X*L0G10(E> > 

9640 DDD2 AODE 


LDY 

#L0G10E/$100 


9641 DDD4 20A4DD 


JSR 

FLD1R 


9642 DDD7 20D3DA 


JSR 

FMUL 


9643 DDDA B07F 


BCS 

EXPERR 


9644 DDDC A900 

EXP 10 

LDA 

#0 

i 10**X 

9645 DDDE 85F1 


STA 

XFMFLG 

; CLEAR TRANSFORM FLAG 

9646 DDEO A5D4 


LDA 

FRO 


9647 DDE2 85F0 


STA 

SGNFLG 

; REMEMBER ARG SGN 

9648 DDE 4 297F 


AND 

#$7F 

; i & MAKE PLUS 

9649 DDE6 S5D4 


STA 

FRO 


9650 DDE8 38 


SEC 



9651 DDE9 E940 


SBC 

#$40 


9652 DDEB 3026 


BMI 

EXP 1 

; X<1 SO USE SERIES DIRECTLY 

9653 

* 

10**X = 

10**<I+F> = < 10**1 > * <10**F> 

9654 DDED C904 


CMP 

#FPREC-2 


9655 DDEF 106A 


BPL 

EXPERR 

; ARG TOO BIG 

9656 DDF 1 A200 


LDX 

#FPSCR&$FF 


ERROR UNDEFINED 

** ■* *• * *■ # * *• •* •* # * *•*■•**•«■•*•* @ 


9657 DDF3 AOOO 


LDY 

#FPSCR/$100 


ERROR UNDEFINED 

**** **••*•**■*■*•*■}»••*# ■* @ 


9658 DDF 5 20B5DD 


JSR 

FSTOR 

; SAVE ARG 

9659 DDF8 20D2D9 


JSR 

FPI 

; MAKE INTEGER 

9660 DDFB A5D4 


LDA 

FRO 


9661 DDFD S5F1 


STA 

XFMFLG 

i SAVE MULTIPLIER EXP IN XFORM 

9662 DDFF A5D5 


LDA 

FRO+1 

; CHECK MSB 

9663 DE01 D058 


BNE 

EXPERR 

; SHUDNT OTTA HAVE ANY 

9664 DE03 20AAD9 


JSR 

IFP 

; NOW TURN IT BACK TO FLPT 

9665 DE06 20C6DD 


JSR 

FMOVE 


9666 DE09 A200 


LDX 

#FPSCR&$FF 


ERROR UNDEFINED 

■«•*■*•*■«• *■*•*•*•«-*#•**■«• 


9667 DEOB AOOO 


LDY 

#FPSCR/$100 


ERROR UNDEFINED 



9668 DEOD 2093DD 


JSR 

FLDOR 

; GET ARG BACK 

9669 DE10 2060DA 


JSR 

FSUB 

; ARG - INTEGER PART = FRACTION PART 

9670 

* 

NOW HAVE FRACTION PART 

OF ARG (F) IN FRO# 

9671 

* 

INTEGER 

PART (I) 


9672 

* 

IN XFMFLG. USE SERIES 

APPROX FOR 

9673 

* 

10**F/ 

THEN MULTIPLY BY 

10**1 

9674 

EXP 1 




9675 DEI 3 A90A 


LDA 

#NPCOEF 


9676 DEI 5 A25D 


LDX 

#P10C0F?<$FF 

- 

9677 DEI 7 AODE 


LDY 

#P10CQF/$100 


9678 DEI 9 2040DD 


JSR 

PLYEVL 

; P < X ) 

9679 DE1C 20C6DD 


JSR 

FMOVE 


9680 DE1F 20DBDA 


JSR 

FMUL 

/ P(X)*P(X) 

9681 DE22 A5F1 


LDA 

XFMFLG 

; DID WE TRANSFORM ARG 

9682 DE24 F023 


BEG 

EXPSGN 

; NO SO LEAVE RESULT ALONE 

9683 DE26 18 


CLC 



9684 DE27 6A 


RORA 


; 1/2 

9685 DE28 S5E0 


STA 

FR1 

; SAVE AS EXP-TO-BE 

9686 DE2A A901 


LDA 

#1 

i GET MANTISSA BYTE 

9687 DE2C 9002 


BCC 

EXP2 

; CHECK BIT SHIFTED OUT OF A UP THERE 

9688 DE2E A910 


LDA 

#$10 

; I WAS ODD - MANTISSA = 10 
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9689 DE30 85E1 

EXP2 

STA 

FR 1 + 1 



9690 DE32 A204 


LDX 

#FPREC— 2 



9691 DE34 A900 


LDA 

#0 



9692 DE36 95E2 

EXP3 

STA 

FR1+2, X 

i 

CLEAR REST OF MANTISSA 

9693 DE38 CA 


DEX 




9694 DE39 10FB 


BPL 

EXP3 



9695 DE3B A5E0 


LDA 

FR 1 

J 

BACK TO EXPONENT 

9696 DE3D 18 


CLC 




9697 DE3E 6940 


ADC 

#*40 

/ 

BIAS IT 

9698 DE40 B019 


BCS 

EXPERR 

i 

OOPS. ..IT'S TOO BIG 

9699 DE42 3017 


BMI 

EXPERR 



9700 DE44 85E0 


STA 

FR 1 

i 

FR 1 = 10**1 

9701 DE46 20DBDA 


JSR 

FMUL 

/ 

( 10**1 )*< 10**F ) 

9702 DE49 A5F0 

EXPSGN 

LDA 

SGNFLG 

# 

WAS ARGCO 

9703 DE4B 100D 


BPL 

EXPOUT 

i 

NO-DONE 

9704 DE4D 20C6DD 


JSR 

FMOVE 

i 

YES-INVERT RESULT 



LDX 

#FONE&*FF 



9705 Dc.50 Ac'Vr 




9706 DE52 AODE 


LDY 

#F0NE/*100 



9707 DE54 2093DD 


JSR 

FLDOR 



9708 DE57 202SDB 


JSR 

FDIV 




00 

00 


9709 DE5A 60 

9710 DE5B 38 

9711 DE5C 60 

9712 DE5D 3D 
DE5E 17 
DE5F 94 
DE60 19 
DE61 
DE62 

9713 DE63 3D 
DE64 57 
DE65 33 
DE66 05 
DE67 00 
DE68 00 

9714 DE 69 3E 
DE6A 05 
DE6B 54 
DE6C 76 
DE6D 62 
DE6E 00 

9715 DE6F 3E 
DE70 32 
DE7 1 
DE72 
DE73 
DE74 00 

9716 DE75 3F 
DE76 01 
DE77 68 
DE78 60 
DE79 30 
DE7A 36 

9717 DE7B 3F 
DE7C 07 


EXPOUT 

EXPERR 

P10C0F 


RTS 
SEC 
RTS 
. BYTE 


(PANT , PANT - FINISHED!!) 
FLAG ERROR 
& QUIT 


*3D, *17, *94, *19, 0, 0 ; 0. 0000179419 


BYTE *3D, *57, *33, *05, 0,0 ;0. 0000573305 


BYTE *3E, *05, *54, *76, *62, 0 ; 0. 0005547662 


BYTE *3E, *32, *19, *62, *27, 0 ; 0. 0032176227 





19 

62 

27 




BYTE *3F, *01 , *68, *60, *30, *36 ; 0. 0168603036 


BYTE *3F, *07, *32, *03, *27, *41 ; 0. 0732032741 
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DE7D 

32 





DE7E 

03 



0 


DE7F 

27 





DE80 

41 




9718 

DE81 

3F 


. BYTE 

0 


DE82 

25 





DE83 

43 





DE84 

34 



0 


DE85 

56 





DE86 

75 




9719 

DE87 

3F 


. BYTE 

0 


DE88 

66 





DE89 

27 




/ 

DE8A 

37 



0 


DE8B 

30 





DE8C 

50 




9720 

DE8D 

40 


. BYTE 

0 


DE8E 

01 





DE8F 

15 





DE90 

12 



0 


DE91 

92 





DE92 

55 




9721 

DE93 

3F 


. BYTE 

£ 


DE94 

99 





DE95 

99 



a 


DE96 

99 



0 


DE97 

99 





DE98 

99 




9722 


OOOA 

NPCOEF 

EGU 

0 

9723 

DE99 

3F 

LOG 10E 

. BYTE 



DE9A 

43 





DE9B 

42 



0 


DE9C 

94 





DE9D 

48 





DE9E 

19 



0 

9724 

DE9F 

40 

FONE 

. BYTE 

3 L 


DEAO 

01 





DEA1 

00 



• 


DEA2 

00 





DEA3 

00 





DEA4 

00 




• 9725 


$3F, $25, $43, $34, $56, $75 ; 0. 2543345675 


$3F, $66, $27, $37, $30, $50 ; 0. 6627373050 


$40, $01, $15, $12, $92, $55 ; 1. 15129255 


$3F, $99, $99, $99, $99, $99 ; 0. 999999999 


#-P 1 OCOF/FPREC 

$3F, $43, $42, $94, $48, $19 ; LOGIO(E) 


$40, 1 , 0, 0, 0, 0 


; 1 . 0 
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PAGE 

'Z = <X-C>/(X+C 

9726 

DEA5 8E0000 

XFORM STX 

FPTR2 

ERROR 

UNDEFINED 

********■*■*■****•**■*■**-*•**•* @ 

9727 

DEA8 8C0100 

STY 

FPTR2+1 

ERROR 

UNDEFINED 

************•*#■*■■»•■**•*•■*■*•*■•*#■#■© 

9728 

DEAB A200 

LDX 

#PLYARG&*FF 

ERROR 

UNDEFINED 

■* * ■** * •*•*■**•** ■* ■*■*■*•*■*■***■*■** ■* ■*•*•*•** @ 

9729 

DEAD AOOO 

LDY 

#PLYARG/*100 

ERROR 

UNDEFINED 

*****••*■»■■*■*■*•«■•*■»•■»{■ *• *■*■«-* * * *■■**•■«■* *• @ 

9730 

DEAF 20B5DD 

JSR 

FSTOR 

9731 

DEB 2 AEOOOO 

LDX 

FPTR2 

ERROR 

UNDEFINED 

■* ■#•** ■* * ■* #*•*■*■*•*** @ 

9732 

DEB 5 AC0100 

LDY 

FPTR2+1 

ERROR 

UNDEFINED 

* # * * # *■ * * •* * * *• * * * * * # * * * * * * @ 

9733 

DEB8 20A4DD 

JSR 

FLD1R 

9734 

DEBB 2066DA 

JSR 

FADD 

9735 

DEBE A2C0 

LDX 

#FPSCR&$FF 


ERROR UNDEFINED ****************************@ 

9736 DECO AOOO LDY #FPSCR/$100 

ERROR UNDEFINED #*****tt**#********#***#******@ 

9737 DEC2 20B5DD USR FSTOR 

9738 DEC 5 A200 LDX #PLYARG&$FF 

ERROR UNDEFINED **##**#**#***#**#****##*•*■*•*■*•*£ 

9739 DEC 7 AOOO LDY #PLYARG/$100 

ERROR UNDEFINED ##*##tt##**#**#**#**#**#*#** , **'’*@ 

9740 DEC 9 2093DD JSR FLDOR 

9741 DECC AEOOOO LDX FPTR2 

ERROR UNDEFINED #**#**#******#*****■*•*#•*© 

9742 DECF AC0100 LDY FPTR2+1 

ERROR UNDEFINED **#####*#*************-**-«-@ 


9743 

DED2 20A4DD 

JSR 

FLD1R 

9744 

DED5 2060DA 

JSR 

FSUB 

9745 

DED8 A200 

LDX 

#FPSCR&$FF 

ERROR 

UNDEFINED 


974A 

HFDA AOOO 

LDY 

#FPSCR/$100 

ERROR 

i/uun nwvv 

UNDEFINED 


9747 

DEDC 20A4DD 

JSR 

FLD1R 

9748 

DEDF 2028DB 

JSR 

FDIV 

9749 

DEE2 60 

RTS 



9750 


; STASH X IN PLYARG 


; X+C 



— vv.v 




<X-C)/(X+C) 


z 
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9751 

DEE3 

A901 

LOG 

LDA 

#1 


9752 

DEES 

D002 


BNE 

LOGBTH 

m 

9753 

DEE7 

A900 

LOG 10 

LDA 

#0 

,r — "" 

9754 

DEE9 

85F0 

LOGBTH 

STA 

SGNFLG 

a 

9755 

DEEB 

A5D4 


LDA 

FRO 

• 

9756 

DEED 

1002 


BPL 

L0G5 


9757 

DEEF 

38 

LOGERR 

SEC 



9758 

DEFO 

60 


RTS 


0 

9759 



LOGS 




9760 



•* 

WE WANT X = F*< 


9761 



* 

10**Y 

HAS SAME 1 

m 

9762 



*• 

& MANTISSA BYTE 


9763 

DEF 1 

A5D4 

LOG 1 

LDA 

FRO 


9764 

DEF3 

S5E0 


STA 

FR 1 

m 

9765 

DEF 5 

38 


SEC 



9766 

DEF 6 

E940 


SBC 

#$40 


9767 

DEF8 

OA 


ASLA 


m 

9768 

DEF9 

85F1 


STA 

XFMFLG 


9769 

DEFB 

A5D5 


LDA 

FRO+l 


9770 

DEFD 

29F0 


AND 

#$F0 

m 

9771 

DEFF 

D004 


BNE 

L0G2 


REMEMBER ENTRY POINT 


CLEAR FLAG 
USE SGNFLG 


FOR LOG/LOG 10 MARKER 


**Y>, KFOO 
EXP BYTE AS X 
1 OR 10 


REMEMBER Y 






t 


9772 

9773 

9774 

9775 

9776 

9777 

9778 

9779 

9780 

9781 


DF01 
DF03 
DF05 
DF07 
DF09 
DFOB 
DFOD 
DFOF 
DF1 1 
DF12 


A901 

D004 

E6F1 

A910 

85E1 

A204 

A900 

95E2 

CA 

10FB 


L0G2 


LOGS 


L0G4 


LDA 

BNE 

INC 

LDA 

STA 

LDX 

LDA 

STA 

DEX 

BPL 


#1 

L0G3 
XFMFLG 
#$10 
FR 1 + 1 
#FPREC-2 
#0 

FR1+2, X 
L0G4 


BUMP Y 

SET UP MANTISSA 
CLEAR REST OF MANTISSA 


34 

9782 

DF 1 4 

2028DB 

USR 

FDIV 

i 

X = X/< 10**Y) - S. B. 

m 

9783 



FLOG 10 


i 

; L0G10< X ) > 1<=X<=10 

r~ — ~ 

9784 

DF1 7 

A27C 

LDX 

#SQR 1 0&$FF 




9785 

DF1 9 

AODF 

LDY 

#SQR 10/$100 



# 

9786 

DF1B 

20A5DE 

JSR 

XFORM 

i 

Z = <X-C>/(X+C), C*C = 

»| 

9787 

DF1E 

A200 

LDX 

#FPSCR&$FF 



40 

ERROR 

UNDEFINED 

# •* * •* # * -a-*# *••*■*#• •* * ■* •* •**■*•«••* ## ■* •* @ 



m 

9788 

DF20 

AOOO 

LDY 

#FPSCR/$100 




ERROR 

UNDEFINED 





9789 

DF22 

20B5DD 

JSR 

FSTOR 

# 

SAVE Z 

0 

9790 

DF25 

20C6DD 

JSR 

FMOVE 




9791 

DF28 

20DBDA 

JSR 

FMUL 

i 

Z*Z 

4* 

9792 

DF2B 

A90A 

LDA 

#NLCOEF 



0 

9793 

DF2D 

A288 

LDX 

#LGCOEF&$FF 




9794 

DF2F 

AODF 

LDY 

#LG‘COEF/$ 1 00 




9795 

DF31 

2040DD 

JSR 

PLYEVL 

} 

P<Z*Z> 


9796 

DF34 

A200 

LDX 

#FPSCR&$FF 




ERROR 

UNDEFINED 





9797 

DF36 

AOOO 

LDY 

#FPSCR/$100 



0 

ERROR 

UNDEFINED 

# #•*■*■*■* -K- #• #•**#*#***##**•*■#■■*#•»••«•■*■ @ 




9798 

DF38 

20A4DD 

JSR 

FLD1R 




9799 

DF3B 

20DBDA 

JSR 

FMUL 

t 

Z*P(Z*Z) 

0 

9800 

DF3E 

A282 

LDX 

#FHALF&$FF 




IN (1, 10) 


= 10 
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L0010 ( X ) 


9801 DF40 AODF 


LDY 

#FHALF/*100 

9802 DF42 20A4DD 


JSR 

FLD1R 

9303 DF45 2066DA 


JSR 

FADD » 0. 5 + Z*P ( 7*7 ) 

9804 DF48 20C6DD 


JSR 

FMOVE 

9305 DF4B A900 


LDA 

#0 

9306 DF4D S5D5 


STA 

FRO+l 

9307 DF4F A5F1 


LDA 

XFMFLG 

9308 DF51 85D4 


STA 

FRO 

9809 DF53 1007 


BPL 

L0G6 

9310 DF55 49FF 


EOR 

#“1 > FLIP SIGN 

9811 DF57 18 


CLC 


9812 DF58 6901 


ADC 

#1 

9313 DF5A 35D4 


STA 

FRO 

9814 

L0G6 



9815 DF5C 20AAD9 


JSR 

IFP J LEAVES FR1 ALONE 

9316 DF5F 24F1 


BIT 

XFMFLG 

9817 DF61 1006 


BPL 

LOG7 

9818 DF63 A980 


LDA 

#*80 ; FLIP AGAIN 

9819 DF65 05D4 


ORA 

FRO 

9820 DF67 S5D4 


STA 

FRO 

9821 

L0G7 



9822 DF69 2066DA 


JSR 

FADD ; LOG ( X ) = LOG ( X ) +Y 

9823 

LOGOUT 



9824 DF6C A5F0 


LDA 

SGNFLG 

9825 DF6E FOOA 


BEG 

LOGDON ; WAS L0G10, NOT LOG 

9826 DF70 A299 


LDX 

#LOG 1 0E&255 ; LOfii X ) /! no 1 n ( F ^ 

9327 DF72 AODE 


LDY 

#L.OG 1 0E/$ 1 00 

9828 DF74 20A4DD 


JSR 

FLD1R 

9329 DF77 2028DB 


JSR 

FDI V 

9830 DF7A 18 

LOGDON 

CLC 


9831 DF7B 60 


RTS 


9832 DF7C 40 

SGR10 

. BYTE 

$40, $03, $16, $22, $77, *66 ; SQUARE ROflT 





DF7D 03 




DF7E 16 




DF7F 22 




DF80 77 




DF81 66 





9833 DF 82 3F FHALF . BYTE $3F, $50, 0, 0, 0, 0 ; 0. 5 

DF83 50 
DF84 00 
DF85 00 
DF86 00 
DF87 00 

9834 DF 88 3F LGCOEF .BYTE $3F, $49, $1 5, $57, $1 1 , $08 ; 0. 491 5571 108 

DF89 49 
DFBA 15 
DF8B 57 
DF8C 11 
DF8D 08 

9835 DFQE BF .BYTE $BF, $51 , $70, $49, $47, $08 ; -0. 5170494708 

DF8F 51 
DF90 70 

DF91 49 

DF92 47 
DF93 08 
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LOG 10 ( X ) 


SHEP ATARI EDITOR 






* 

DF96 

20 

0 

DF97 

57 


DF98 

61 


DF99 

95 

0 

9837 DF9A 

BF 


DF9B 

04 

10 

DF9C 

39 

0 

DF9D 

63 


DF9E 

03 


DF9F 

55 

0 

9338 DFAO 

3F 


DFA1 

10 

u 

DFA2 

09 

0 

DFA3 

30 


DFA4 

12 


DFA5 

64 

0 

9839 DFA6 

3F 


DFA7 

09 


DFA8 

39 

0 

DFA9 

08 


DFAA 

04 


DFAB 

60 

• 

9840 DFAC 

3F 


DFAD 

12 


DFAE 

42 

• 

DFAF 

58 


DFBO 

47 


DFB 1 

42 

\m 

9841 DFB2 

3F 

33 : 

DFB 3 

17 

34 

DFB 4 

37 

• 

DFB 5 

12 


DFB 6 

06 


DFB 7 

08 

m 

9842 DFB 8 

3F 


DFB9 

28 

40 

DFB A 

95 

m 

DFBB 

29 


DFBC 

71 


DFBD 

17 

# 

9843 DFBE 

3F 


DFBF 

86 


DFCO 

85 

# 

DFC 1 

88 


DFC2 

96 


DFC 3 

44 


BYTE $3F, *39, $20, $57, $61, $95 ; 0. 3920576195 


BYTE $BF, $04, $39» $63/ $03* $55 -0.0439630355 





BYTE 


BYTE $3F, $10, $09, $30* $12/ $64 0.1009301264 


BYTE $3F, $09, $39, $08, $04, $60 j 0. 0939080460 


BYTE $3F, $12, $42, $58, $47, $42 ; 0. 1242584742 


.BYTE $3F, $17, $37, $12, $06, $08 ; 0.1737120608 


BYTE $3F, $28, $95, $29, $71, $17 ; 0.28957117 


$3F, $86, $85, $88, $96, $44 ; 0. 8685889644 


9844 

9845 


DFC4 

DFC5 

DFC6 

DFC7 

DFC8 

DFC9 


OOOA 

3E 

16 

05 

44 

49 

00 


NLCOEF 

ATCOEF 


EGU 
. BYTE 


*-LGCOEF/FPREC 

$3E, $16, $05, $44, $49, 0 ; 0. 0016054449 
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SHEP ATARI EDITOR 


9846 DFCA BE 
DFCB 95 
DFCC 68 
DFCD 38 
DFCE 45 
DFCF 00 
9847 DFDO 3F 
DFD1 02 
DFD2 68 
DFD3 79 
DFD4 94 
DFD5 16 
9848 DFD6 BF 
DFD7 04 
DFD8 92 
DFD9 78 
DFDA 90 
DFDB 80 
9849 DFDC 3F 
DFDD 07 
DFDE 03 
DFDF 15 
DFEO 20 
DFE1 00 
9850 DFE2 BF 
DFE3 08 
DFE4 92 
DFE5 29 
DFE6 12 
DFE7 44 
9851 DFES 3F 
DFE9 11 
DFEA 08 
DFEB 40 

DFEC 09 

DFED 11 
9852 DFEE BF 
DFEF 14 
DFFO 28 
DFF1 31 
DFF 2 56 
DFF3 04 
9853 DFF4 3F 
DFF 5 19 
DFF6 99 
DFF7 98 
DFF8 77 
DFF 9 44 
9854 DFF A BF 
DFFB 33 
DFFC 33 
DFFD 33 
DFFE 31 
DFFF 13 
9855 EOOO 3F 


BYTE *BE, *95, *68, *38, *45, O i -O. 


009568345 


BVTE *3F » *02, *68, *79, *94, *16 » O. 0268799416 


BYTE *BF, *04, *92, *78, *90, *80 ; -O. 0492789080 


BYTE *3F, *07, *03, *15, *20, 0 ; 0. 07031 52000 




BYTE *BF, *08, *92, *29, *12, *44 ; -0. 0892291244 




BYTE *3F, *1 1, *08, $40, *09, *1 1 ; 0. 1 10840091 1 


.BYTE *BF, *14, *28, *31, *56, *04 ; -0. 1 42831 5604 


. BYTE *3F, *19, *99, *98, *77, *44 0. 1999987744 


.BYTE *BF, *33, *33, *33, *31, *13 ; -0.3333333113 


FP9S 


BYTE *3F, *99, *99, *99, *99, *99 ; 0. 999999999 





DFFE 31 
DFFF 13 
9355 EOOO 3F 


FP9S 


. BYTE $3F, $99, $99, $99, $99, $99 


LOQIO'X ? 03 SHEP ATARI EDIT0R 


E001 99 
E002 99 
E003 99 
E004 99 
E005 99 

9856 000B 

9857 E006 3F 
E007 78 
E008 53 
E009 98 
EOOA 16 
EOOB 34 

9858 



NATCF EQU *~ATCOEF/FPREC 

PI0V4 .BYTE $3F, $78, $53, $98, $16, $34 



i 0. 999999999 


; PI/4 = ARCTAN < 1 
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ATARI CARTRIDGE VECTORS 


9859 

9860 

9861 
ERROR 

9862 

9863 

9864 

9865 

9866 

9867 

9868 


0001 

EOOC 


DUP. 

BFF 9 

BFFA 

3FFC 

BFFD 

BFFE 


SCVECT 


'ATARI CARTRIDGE VECTORS ' 

ATARIV 

CRTGI 


©©COLDSTART 

0 

5 

©©SCVECT 


COLDSTART ADDR 
CART EXISTS 
FLAG 

COLDSTART ENTRY ADDR 




30 



- 




40 
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SHEP ATARI EDITOR 


9869 0000 

ASECT PTRS 

TSECT PTRS 

BSECT PTRS 


SYMBOL 

MAP 



ABORT 

BB70 

A 

ABRK 

ACU 

0008 

A 

ADD 

ADSTBL 

A7AE 

A 

ADXTBL 

ALIST 

BBCB 

A* 

ALIST 1 

APHM 

OOOE 

A 

AQ1FLG 

ASCIN 

D800 

A* 

ASDIR 

ASM 1C 

B687 

A 

ASM ID 

ASMR 

B591 

A* 

ASMULT 

ATARIV 

0001 

A 

ATCOEF 

AUTOFL 

00A6 

A 

AUTON 

AXMISC 

B8F8 

A 

AXMULT 

BININT 

00D4 

A 

BIT8 

BRKPAT 

B 1 65 

A* 

BRKVEC 

C 

0080 

A 

CA 

CDISPL 

0493 

A 

CD I V 

CDUM 

0080 

A 

CEASM 

CEIMP 

002C 

A 

CEJECT 

CEOL 

0079 

A 

CEOP 

CFILE 

0078 

A 

wk. Wl 

CIFDEL 

CJMP 

0036 

A 

CJSR 

CLASF 

A5C7 

A 

CLFILE 

CLR 1 

A2A2 

A 

CLRMEM 

CMINUS 

006E 

A 

CMUL 

COB J 

004D 

A 

COLDST 

CONTRA 

AA08 

A* 

CONTXT 

CPLUS 

006D 

A 

CO 

CRTGI 

BFF9 

A 

CSADR 

CSDIR 

0009 

A 

CSEDIT 

CSMULT 

0037 

A 

CSOP 

CURLN 

00A2 

A 

CVAFP 

CY 

007C 

A 

DBVER 

DEGFLG 

OOFB 

A* 

DELC 

DIMP 

B3E2 

A 

DISASM 

DMODE 

0001 

A 

DMULTI 

DREL 

B3E7 

A 

DSADR 

DSYNTA 

A060 

A 

DXTBL 

EDMSG 

A052 

A 

EEXP 

EOP 1 

0023 

A 

E0P2 

ERDUP 

0007 

A 

EREGU 

ERLNUM 

0011 

A 

ERLOAD 

ERNORG 

0013 

A 

ERNSTR 

ERRBUF 

0487 

.A— 

ERRDEX 

ERUFR 

OOOE 

A 

ERVAL 

ESYNTA 

A025 

A 

ETXT 


PAGE 'END OF BASIC' 
. END 


B58E 

A 

ABS 

0002 

A 

BAD9 

A 

ADDRON 

0000 

A 

A963 

A 

AFP 

D800 

A 

BBDD 

A 

AMODE 

FFFF 

A 

0099 

A 

ARES1 

BA7A 

A 

A 198 

A 

ASIMP 

A189 

A 

B686 

A 

ASM1L 

B597 

A 

A17C 

A 

ASREL 

A1A8 

A 

DFC4 

A 

ATR 1 

0000 

A* 

0080 

A 

AXCOM 

B5C6 

A 

B916 

A 

AXREL 

B8C8 

A 

BB57 

A 

BLKCNT 

OOFD 

A 

0206 

A 

BUG1 

AA81 

A 

0061 

A 

CAND 

0071 

A 

0070 

A 

CDO 

0059 

A 

004B 

A* 

CEBUG 

006C 

A 

004F 

A 

CEMISC 

0036 

A 

007E 

A* 

CEOPT 

0050 

A* 

007E 

A 

C I MM 

0078 

A 

0035 

A 

CKREP 

ACAF 

A 

BE27 

A 

CL.IST 

0050 

A 

A27C 

A 

CLSALL 

BE48 

A 

006F 

A 

CNO 

004C 

A 

AOOO 

A 

COMEXE 

A0B4 

A 

AA03 

A 

COPTR 

00A2 

A 

007D 

A 

CR 

009B 

A 

0095 

A 

CSASM 

0009 

A* 

0050 

A 

CSIMP 

0014 

A* 

006D 

A* 

CSOPT 

004C 

A* 

D800 

A 

CVFASC 

D8E6 

A * 

0000 

A 

DBYTEO 

0080 

A 

AB2D 

A 

DELIM 

003C 

A 

B297 

A 

DISFLG 

00D2 

A 

B3F 1 

A 

DOORG 

B7B2 

A 

009A 

A 

DSPFLG 

02FE 

A 

A93F 

A* 

ECOM 

A035 

A 

OOED 

A 

EMODE 

0000 

A 

0015 

A 

EGULBL 

0002 

A 

0009 

A 

ERGARB 

0010 

A 

0004 

A 

ERMSYN 

0003 

A 

OOOB 

A 

EROVFL 

0014 

A 

00A8 

A 

ERRMSG 

BF2C 

A 

OOOA 

A 

ESIGN 

OOEF 

A 

A1C2 

A 

EXBUFF 

0082 

A 


ABSX 

0080 

A 

ABSY 

0001 

A 

ADI SPL 

0492 

A 

ADRBIT 

B9F4 

A 

AINIT 

BA1C 

A 

AINIT2 

BA32 

A 

AND 

BACC 

A 

APDBV 

0000 

A 

ARES2 

BASS 

A 

ARESET 

BA7E 

A 

ASM1A 

B59C 

A 

ASM IB 

B67B 

A 

ASM3 

B56A 

A 

ASM I SC 

A1B2 

A 

ASTBL 

A7C4 

A 

ASYNTA 

A0C6 

A 

AUTO 

BCC6 

A 

AUTOFF 

0000 

A 

AXDIR 

B5E6 

A 

AXIMP 

B8BF 

A 

AXTBL 

A957 

A 

BELL 

OOFD 

A 

BRKBYT 

001 1 

A 

BRKINI 

AFA5 

A# 

BUGMSG 

A07B 

A 

BYELOC 

E47 1 

A 

CCOM 

007A 

A 

CDELIM 

007B 

A 

CDOL 

0076 

A 

CDQ 

0072 

A 

CEDIR 

0013 

A 

CEEDIT 

0060 

A 

CEMNEM 

004B 

A* 

CEMULT 

004B 

A 

CEREL 

0034 

A 

CERR 

004E 

A 

CIO 

E456 

A 

CIX 

OOF 2 

A 

CLALL1 

BE4D 

A 

CLALL7 

BE4A 

A 

CLOC 

006F 

A 

CLPRN 

0074 

A 

CLSYSD 

BE37 

A 

CM 

0062 

A 

CNODO 

009B 

A 

CNTON 

0080 

A 

COMSYN 

A080 

A 

CONTLO 

AA06 

A 

COX 

0092 

A 

CPC 

0097 

A 

CREL 

B3B2 

A 

CRPRN 

0075 

A 

CSBUG 

0061 

A* 

CSC 

0077 

A* 

CSMISC 

0035 

A* 

CSMNEM 

0014 

A 

CSQ 

0073 

A 

CSREL 

002D 

A* 

CVIFP 

D9AA 

A* 

CX 

006B 

A 

DCBORG 

0300 

A* 

DEADR 

00A2 

A 

DELLN 

A237 

A 

DIGRT 

OOF 1 

A 

DIV 

BAF5 

A 

DM I SC 

B3EC 

A 

DOREP 

ACD6 

A 

DOSLOC 

OOOA 

A 

DSTBL 

A796 

A* 

DSYN2 

A056 

A 

ECSIZE 

009E 

A 

EDERR 

BEC9 

A 

ENTDTD 

00A9 

A 

EOFFLG 

0484 

A 

ERADR 

OOOC 

A 

ERASYN 

0006 

A 

ERLBIG 

OOOF 

A 

ERLMEM 

0012 

A 

ERNDEF 

0005 

A 

ERNLN 

0002 

A 

EROVR 

0008 

A 

ERPHAS 

OOOD 

A 

ERRNUM 

00A1 

A 

ERROR 

BEC9 

A 

ESTBL 

A774 

A 

ESYN2 

A01 6 

A 

EXINIT 

B10A 

A 

EXP 

DDDO 

A* 
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END OF BASIC 


SHEP ATARI EDITOR 


EXP 1 

DEI 3 

A 

EXP 10 

EXP ERR 

DE5B 

A 

EXPLOW 

EXTBL 

A91D 

A 

FADD 

FASC 

D8E6 

A 

FCHRFL 

FINDC 

AC87 

A 

FINDON 

FLD1 1 

DDAC 

A 

FLD1P 

FL0AD2 

BD7D 

A 

FLOG 10 

FMOVER 

AA52 

A* 

FMPREC 

FP9S 

E 000 

A* 

FPI 

FPTR2 

0000 

U 

FRO 

FR 1 M 

00E1 

A 

FR2 

FRA2E 

DDOF 

A 

FRE 

FST01 

DDBD 

A 

FSTOP 

GCXI 

BD5D 

A 

GETC 1 

GETHEX 

A45E 

A 

GETIN 

GJADR 1 

B 1 37 

A 

GLGO 

GNLINE 

BD28 

A 

GNXTL 

HEXTAB 

BF6C 

A 

HI MEM 

ICAUX2 

034B 

A 

ICAUX3 

IC3AL 

0344 

A 

ICBLH 

1CDDC 

OOCE 

A* 

ICDNO 

ICGTC 

0007 

A* 

ICGTR 

ICOIN 

0001 

A# 

ICOIO 

ICPTC 

OOOB 

A* 

ICPTR 


ICSDNR 0081 A* ICSEOF 

ICSNOP 0085 A* ICSOK 

ICSWPE 0087 A* IDISPL 

I MM 0001 A INBOUT 

INCPST AD95 A INCSRC 

INVOPT B452 A 101 


105 BE65 A# 106 


IOCBOR 

0340 

A 

IOCMD 

ITTAB 

B3DA 

A 

KWSRCH 

L 

B745 

A# 

LBLS1 

LBUFF 

0580 

A 

LCHK1 

LEADR 

0097 

A 

LELNUM 

LINLNG 

00A1 

A 

LISDV 

LISTDT 

OOAA 

A 

LMADR 

LNUMOF 

0080 

A 

LNUMON 

L0G1 

DEF1 

A* 

L0G10 

L0G4 

DFOF 

A 

L0G5 

LOGDON 

DF7A 

A 

LOGERR 

LONE 

0040 

A 

LRANG1 

LSVNER 

B5C0 

A 

LTHREE 

MAS'YNT 

B4B0 

A 

MAXCIX 

MEMFUL 

0001 

A 

MEMTQP 

MISCRA 

0500 

A 

MODBYT 

MQVTXT 

ABD1 

A 

MSGADR 

MV0T01 

DDC6 

A# 

MVFA 

MVLNG 

009C 

A 

MVTA 

NLCOEF 

OOOA 

A 

NOCDO 

NOR OP 

B047 

A 

N0R0P1 

NULFLG 

OOAF 

A 

NZ 

OB JDV 

0002 

A 

OBJEND 

DERR 

0020 

A 

OFF 


DDDC 

A* 

EXP2 

DE30 

A 

A97F 

A 

EXPOUT 

DE5A 

A 

DA66 

A 

FADR 

B203 

A 

OOFO 

A 

FDIV 

DB28 

A 

0000 

A 

FLD01 

DD9B 

A 

DDAA 

A* 

FLD1R 

DDA4 

A 

DF 1 7 

A* 

FLPTR 

0000 

U 

0005 

A 

FMUL 

DADB 

A 

D9D2 

A 

FPORG 

D800 

A 

00D4 

A 

FROEX 

00D6 

A 

00E6 

A 

FRA10 

DD01 

A 

OODA 

A 

FRINIT 

AD6D 

A 

DDBB 

A* 

FSTOR 

DDB5 

A 

AC5A 

A 

GETC2 

AC 58 

A 

AC63 

A 

GETLL 

BEB5 

A 

BD2C 

A 

GLPCX 

BD61 

A 

BEBA 

A 

GNXTL 1 

BEBB 

A 

02E5 

A 

HMADR 

02E5 

A 

034C 

A 

ICAUX4 

034D 

A 

0349 

A 

ICBLL 

0348 

A 

0341 

A* 

ICFREE 

OOFF 

A* 

0005 

A 

ICHID 

0340 

A-fc. 

0003 

A 

ICOOUT 

w W ~T w 
0002 

n « 

A* 

0009 

A* 

ICPUT 

0346 

A 

0003 

A# 

ICSI VC 

0084 

A# 

0001 

A* 

ICSTA 

0343 

A 

0491 

A 

IFP 

D9AA 

A 

ABEB 

A 

INBUFF 

00F3 

A 

A625 

A 

I NDX 

w V 1 W 
0010 

n 

A 

BE56 

A 

102 

BE5A 

A* 

BE69 

A# 

107 

BE70 

a 

0485 

A 

IODVC 

0486 

i t 

A 

A5AE 

A 

KWSTRT 

0008 

A 

A550 

A 

L RL8RC 

A 524 

A 

ft 


n 

0084 

A 

LCHK2 

0009 

A 

00A2 

A 

LENTAB 

BA12 

A 

0001 

A 

LIST 

AB55 

A 

02E7 

A 

LMSAV 

048A 

A 

0000 

A 

LOADDV 

0003 

A 

DEE7 

A* 

L0G1 OE 

DE99 

A 

DEF1 

A 

Im W W 4> VIm 

LOG 6 

DF5C 

n 

A' 

DEEF 

A* 

LOGOUT 

DF6C 

A* 

ACM 

A 

LRANGE 

AC 17 

A 

OOCO 

A 

LTWO 

1 1 V A / 
0080 

n 

A 

0099 

A 

MDEND 

DB 1 A 

A 

0090 

A 

MEND1 

DR 1 F 

A#. 


1 Ik.) ML/ 1 

L* L) JL Lw 

n « 

BA08 

A 

MODEFL 

00A7 

A 

0093 

A 

MSGXY 

BF9A 

A 

00E6 

A 

MVFEA 

009E 

A 

00E8 

A 

NATCF 

OOOB 

1 1 

A* 

BE47 

A 

NO I N V 

0010 

A 

B048 

A 

NPCOEF 

OOOA 

A 

0001 

A 

OBJBUF 

0082 

A 

0084 

A 

0BJM2 

BB65 

A 

B899 

A 

OLBCNT 

00A1 

A 


EXP3 

DE36 

A 

EXPSGN 

DE49 

A 

FAGET 

B218 

A 

FHALF 

DF82 

A 

FLDOP 

DD99 

A* 

FLIST 

BD74 

A 

FMOVE 

DDC6 

A 

FOB J 

BD88 

A 

fprec 

0006 

A 

FROM 

00D5 

A 

fraie 

DD09 

A 

FRSIGN 

OOEE 

A 

FSUB 

DA60 

A 

GET C3 

AC56 

A 

GETSTM 

BE8A 

A 

GLPCX 1 

BD64 

A* 

GOB J 

AE2C 

A 

I ASC 

BF4E 

A 

ICAUX5 

034E 

A 

ICCLOS 

OOOC 

A 

ICGBC 

0006 

A 

ICLEN 

0010 

A 

ICPBC 

OOOA 

A 

ICSBRK 

0080 

A 

ICSI VN 

0086 

A* 

ICSTAT 

OOOD 

A* 

ILEN 

0481 

A 

INCLA 


A 

j. i MV L.n 

D un o 

ft 

INDY 

0020 

A 

103 

BE5C 

A 


108 BE73 A 

I0TES2 BDBE A 
KWTAB A62F A 
LBPR1 057E A* 
LDDVX BDB2 A 
LGCOEF DF88 A 
LIST 1 ABA2 A 


LNCNT 

0483 

A 

LOCCNT 

OOAD 

A 

L0G2 

DF05 

A 

L0G7 

DF69 

A 

LOMEM 

0080 

A 

LSADR 

009C 

A 

LTYPFL 

00D1 

A 

MDESUP 

MEND2 

DCCF 

DB21 

A 

A 

H 

MOVLIN 

ABAS 

A 

MSGXYC 

BFB2 

A 

MVFROE 

DD34 

A 

NIBSHO 

DBEB 

A 

NORM 

DCOO 

A 

NSIGN 

OOEE 

A 

OBJDEX 

0099 

A 

OBJMAN 

BB69 

A 

OLIST 

0080 

A 


EXPAND A 98 1 A« 
EXPTXT A979 A 
FAGET2 B230 A 
F I LEON 0080 A* 
FLDOR DD93 A 
FLOAD BD7F A 
FMOVE1 DDC8 A 
FONE DE9F A 
FPSCR 0000 U 
FR 1 OOEO A 

FRA20 DD05 A 
FRX OOEC A 

GASML B65A A 
GETCOD AC5C A 
GJADR B 135 A 
GLPX BD64 A 
GPCHAR B23A A 


ICAUX1 

034A 

A 

ICBAH 

0345 

A 

ICCOM 

0342 

A 

ICGBR 

0004 

A* 

ICMAX 

OOOE 

A* 

ICPBR 

0008 

A* 

ICSDER 

0083 

A* 

ICSNED 

0082 

A* 

ICSTR 

0002 

A* 

ILSHFT 

DA5A 

A 

INCMVF 

B233 

A 

INTLBF 

DA51 

A 

104 

BE5E 

A* 

IOCB 

0340 

A 

IOTEST 

BDBB 

A 

KWTAB2 

A65C 

A 

LBPR2 

057F 

A* 

LDIOST 

BE4 1 

A 

LINDEX 

00D2 

A 

LISTC 

AB81 

A 

LNINCR 

OOAB 

A 


LOG DEE3 A* 

L0G3 DF09 A 


LOGBTH 

DEE9 

A 

LOMFLG 

00A4 

A 

LSEARC 

AD3E 

A 

MAMODE 

0080 

A 

MDSUP 

DCEO 

A 

MEND3 

DB24 

A 

MOVNUM 

BB3D 

A 

MUL 

BB 1 6 

A 

MVFR12 

DD28 

A 

NIBSH2 

DBE7 

A 

N0RM1 

DC04 

A 

NTCMD 

0026 

A 

03JDTD 

00D3 

A 

OCNTL 

BB7C 

A 

ONEBYT 

0001 

A 
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OOBJ 

0040 

A 

OP AGE 

OPSYN 

A 184 

A 

OPTFLG 

OUT 

B5B9 

A 

OUTBUF 

PABSX 

OOCC 

A 

PABSY 

PAGEP 

008E 

A 

PASS1 

PIMM 

OOAO 

A 

PIN 

PLST 

OOOC 

A 

PLYARG 

PLYEVL 

DD40 

A 

PLYOUT 

POBJL 

BC01 

A 

PORG 

PRADRB 

BF8o 

A 

PRBLAN 

PRCNT 

OOFC 

A 

PRCR 

PRHEXC 

BF92 

A 

PRIHEX 

PRPC 

B39S 

A 

PRPL 

PTBUFF 

0093 

A 

PTCMD 

PUTCHA 

BD35 

A* 

PUT02 

PZPGY 

0089 

A* 

QTEMP 

REPFLG 

00D3 

A 

REPON 

RSHFTO 

DC3A 

A 

RSHFT1 

RSTEP2 

B07D 

A 

RSTVB 

SDEND 

AF03 

A 

SEARCH 

SETQ 

FFFF 

A 

SETUPC 

SK3LAN 

DBA1 

A 

SKCTL 

SMBLTP 

0088 

A 

SOX 

SGRCNT 

OOEF 

A* 

SRCADR 

STACK 

0500 

A 

STENUM 

STMSTR 

00D2 

A 

STOP 

STR2LN 

0491 

A 

STRDEL 

SVC IX 

OOFC 

A 

SVESA 

TAB2 

0481 

A 

TAB3 

TA3SX 

0009 

A 

TABSY 

TDIR 

0001 

A 

TEMPRL 

TIMM 

0002 

A 

TIMP 

TITLEP 

008C 

A 

TLBL 

TMULTI 

0005 

A 

TNLBL 

TPCIX 

OODO 

A 

TP VB 1 

TSLNUM 

009A 

A 

TSOE 

TSTLIS 

BC8D 

A 

TSTLST 

TSTTEN 

AE78 

A 

TVSCIX 

TXTTAB 

0084 

A 

TYPEN 

TZPGY 

0005 

A 

UP AUTO 

UR A 

048C 

A 

UREG 

URY 

048E 

A 

VBRK 

WAR MS T 

A01 5 

A 

WHAT 

XA 

B4A5 

A 

XASM 

XBRK 

BODS 

A 

XBYE 

XCR 

AF4B 

A 

XD 

XDR 

AF11 

A 

XEND 

XEXP 

BA91 

A 

XFIND 

X IF 

B604 

A 

XI JMP 

XL 

B245 

A 

XL 1ST 

XNEW 

A 288 

A 

XNUM 

XPRINT 

AB39 

A 

XREN 

XS 

AFF3 

A 

XSAVE 

XTITLE 

B691 

A 

XV 

ZFP 

00D2 

A 

ZFRO 


0001 

A 

OPATYP 

B9CA A 

0494 

A 

OPTTAB 

B8BB A 

0030 

A 

OUTCNT 

OOFD A 

00C9 

A 

PACU 

0040 A 

0080 

A 

PASS2 

0040 A 

BC28 

A 

PINDX 

0096 A 

0000 

U 

PLYCNT 

OOEF A 

DD92 

A 

PMASK 

0482 A 

B7F4 

A 

POX 

0495 A 

BC83 

A 

PRBLK1 

BF7C A 

BF81 

A 

PRCX 

BD37 A* 

BF5A 

A 

PRINUM 

BF37 A 

BC62 

A 

PRREL 

B365 A 

0025 

A 

PTDEX 

OODO A 

BD6A 

A 

PUTOBJ 

BD70 A 

00D9 

A 

QUERRY 

ACB3 A* 

0080 

A 

RESBYT 

00D1 A 

DC3E 

A 

RSTEP 

B06B A 

B18E 

A 

RTNADR 

00A2 A 

A5F2 

A 

SET 1 

0000 A 

B 123 

A 

SGNFLG 

OOFO A 

020F 

A 

SKPBLA 

DBA1 A 

0501 

A 

SPC 

0502 A 

0093 

A 

SRCCNT 

00A1 A 

00D1 

A 

STEP 

BOOD A 

OODO 

A 

STR 1 

B47A A 

00D1 

A 

STRDEX 

0481 A 

0095 

A 

SVLENG 

OOFF A 

0482 

A 

T ABC NT 

OODO A 

0008 

A 

TACU 

0003 A 

048C 

A 

TEOE 

0004 A 

0002 

A* 

TINDX 

0000 A 

0001 

A 

TLEND 

AE6F A 

0000 

A 

TOBJDE 

OOFE A 

AFCA 

A 

TPVBLK 

AFC3 A 

0003 

A* 

TSTALP 

A3B6 A 

AE85 

A 

TSTNUM 

DBAF A 

OODO 

A 

TWOBYT 

0002 A 

00F7 

A 

TYPEN2 

OOCE A 

BD13 

A 

UPC 

OOAB A 

048C 

A 

URP 

048F A 

B162 

A 

VERROR 

BEC7 A 

A0A3 

A 

WHTMSG 

AOAF A 

B506 

A 

XATBUG 

AA72 A 

AA6C 

A 

XBYTE 

B736 A 

AE99 

A 

XDBYTE 

B717 A 

B5F4 

A 

XEND2 

B5F8 A 

AC7B 

A 

XFMFLG 

OOF 1 A 

BOAB 

A 

XITVBV 

E462 A 

AB51 

A 

XLOAD 

ADE8 A 

AA88 

A 

XOPT 

B872 A 

AAFB 

A 

XREP 

AC6A A 

AE3C 

A 

XSIZE 

ADAO A 

B 1 97 

A 

XWORD 

B71B A 

DA44 

A 

ZICB 

0020 A 


OPEN 

BD8E 

A 

ORRES 

BB48 

A 

P10C0F 

DE5D 

A 

PAGE1 

B6DF 

A 

PASSFL 

00A5 

A 

PINDY 

0093 

A 

PLYEV1 

DD5F 

A 

PMTAB 

B486 

A 

PRA 

B35A 

A 

PRBLK3 

BC81 

A 

PRHEX2 

BF54 

A 

PRPAD 

BC76 

A 

PRTERR 

BEF6 

A 

PTSTR 

B693 

A 

PZPG 

0088 

A 

RADFLG 

OOFB 

A* 

ROM 

AOOO 

A 

RSTEPO 

B079 

A 

SCRDV 

0000 

A 

SETA 

0001 

A 

SICKIO 

BDC 1 

A 


SMBLD 008C A 
SPTAB B 1 42 A 
SRCNXT A61C A 
STKLVL OOAO A 
STR1LN OOAO A 
STRMOV ABFF A 
SYNINI A264 A 
TABEXP BAC2 A 


TADR 

B1F6 

A 

THEX2 

0001 

A 

TINDY 

0001 

A 

TMACRO 

0006 

A* 

T0PT2 

A7F3 

A 

TREL 

0003 

A* 

T5TBRK 

BE7E 

A 

TSTOER 

BBF6 

A 

TXTDV 

0003 

A* 

TZPG 

0004 

A* 

UPCADR 

AF8D 

A 

URS 

0490 

A 

WAITCR 

AB40 

A 

WORDFL 

00A1 

A 

XBR 

BODB 

A 

XC 

AF55 

A 

XDEL 

AB23 

A 

XENTER 

ADD8 

A 

XFORM 

DEA5 

A 

X JMP 

B0A5 

A 

XLOMEM 

ADCO 

A 

XORG 

B786 

A 

XRT I 

B0B6 

A 

XT 

AFFC 

A 

XX 

AF9B 

A 

ZPG 

0004 

A 


OPSRCH 

B463 

A 

OSRCH 

B80B 

A 

PABS 

00C8 

A 

PAGEND 

0090 

A 

PEJECT 

OOOC 

A 

PI0V4 

E006 

A* 

PLYEV2 

DD77 

A 

PNUM 

AAC 1 

A 

PRADR 

B37E 

A 

PRCHAR 

BD35 

A 

PRHEXB 

BF8C 

A 

PRPAGE 

B70C 

A 

PRTITL 

B706 

A 

PUTC1 

BD37 

A 

PZPGX 

008C 

A 

RAM2 

0480 

A 

RSHFOE 

DC62 

A 

RSTEP 1 

B085 

A 

SCVECT 

BFF9 

A 

SETBVB 

E45C 

A 

SIX 

0500 

A 

SMBLEN 

008A 

A 

SQR10 

DF7C 

A 

SRCSKP 

00A1 

A 

STMCUR 

0086 

A 

STR2 

B480 

A 

SUB 

BAE7 

A 

TAB1 

0480 

A 


TABS 0007 A 
TCOMM 0000 A 
THRBYT 0003 A 
TITLEN OOSE A 
TM1SC 0004 A* 
TOPTBL A7D0 A 
TSCOX OODO A 
TSTEJT BCA9 A 
TSTR 0002 A 
TXTEND 0088 A 
TZPGX 0006 A* 
UP CUR BD13 A 
URX 048D A 


WARMFL 

0008 

A 

WORDON 

0000 

A 

XBR 1 

BOFB 

A 

XCLR 

A288 

A 

XDOS 

AA6F 

A 

XEQU 

B82B 

A 

XG 

AFA2 

A 

X JSR 

B090 

A 

XM 

B1DC 

A 

XPAGE 

B6DA 

A 

XRTS 

B0C2 

A 

XT AB 

B76B 

A 

ZF1 

DA46 

A* 

ZPG1 

0080 

A 
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ZPG2 

OOEo A 

ZPG3 

OOFB 

A 

ZPGX 

ZT2 

0496 A 

Z TEMP 1 

00F5 

A 

ZTEMP3 

) ABS 

A910 A 

! ADR 

A885 

A 

! ADR2 

ASYN1 

A13B A 

! ASYN2 

A161 

A* 

ASYN3 

! COMNE 

A12A A 

iCSl 

A2A2 

A 

! DATA 

! DEL 

A22C A 

! DEL 1 

A22C 

A* 

I DLBL1 

! DSERR 

A09D A 

! EDUM 

A0B8 

A 

I ERN1 

! ESRT 

0001 A 

f ETXT1 

A234 

A 

IETXT2 

.'EXP 

A843 A 

IEXPX 

A847 

A 

! FI 

•FILES 

A878 A 

f FS 

A4CB 

A 

! FSTR 

! GCHAR 

A410 A 

• GETAD 

A2F8 

A 

IGETLN 

f HEX 

A45E A 

f HEX 1 

A46C 

A 

I HEX 2 

IHEXNU 

A885 A 

.'HFAIL 

A49B 

A 

I ICPCR 

! IND 

A904 A 

• KRTN 

A5F1 

A 

! KRTN2 

ILBLR1 

A3EE A 

LBLR2 

A3F4 

A* 

LBLR3 

ILF 

A 5 AS A 

ILIST 

ASE2 

A 

1 LNF 

! LNO 

A81 0 A 

! LNRAN 

AS37 

A 

I LOC 

I NEXT 

A2C5 A 

• NHEX 

A4B2 

A 

INOLBL 

! OADR 

A8A0 A 

• OADR 2 

A89F 

A 

! OBYTE 

OLNG 

A80C A 

f OM 

A8S1 

A 

IONO 

? OP T 1 

ASDB A 

• OPVAL 

A84A 

A 

IOQA 

» PHERR 

AOFD A 

' POP 


A 

t DHD 1 

IRTN 

0003 A 

!SA 

tn uJ’OJD 

A897 

n 

A 

: rUr 1 

ISASM 

! SBYTE 

A8BC A 

ISC 

A8A3 

A 

! SC I X 

! SCOVF 

A3B0 A 

f SCR 

A8A4 

A 

l CFi 

SDOS 

AS1 9 A 

I SDR 

AS97 

n 

A 

! SEND 

! SET 

A3D2 A 

! SETCO 

A3A7 

A 

ISFIND 

!SI F 

A8D3 A 

! SUMP 

A8ED 

A 

! S JSR 


! SLNUM 
ISNEW 
•SPRIN 
! SR CNF 
! SRFAI 
l ST 2 
! STAE 
STR 1 
! SX 
! SYN7 
ISYNIN 
l T NC3 
! TVFAI 


f APR2 
f C4 

! C0NT2 
!D3 
•DIS2 
f DLDON 
! EXP 1 
IEXP6 
! FDONE 
FR 

LEND 

LIST1 

L0AD2 

LRAN4 


A258 
A81 9 
A86D 
A623 
A3D0 
A4E7 
A8CD 
A4B4 
A897 
A21 A 
A218 
A44S 
A 548 
B33E 
AF7E 
AA61 
AEC1 
B2AF 
B296 
A99D 
A9FS 
ACAE 
AC82 
AE96 
AB7E 
ADF9 
AC4F 


A* 

A* 

A 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


! SLOAD 
! SNUM 
! SRC I 
! SRCON 
!SS 
IST3 
I STFAI 
! STR2 
* BYN4 
! SYNA 
! T AF A I 
! TSTAL 
ITVS1 
! BBACK 
f CADR 
! CDNT3 
!D4 
! D I S3 
! DM1 
! EXP2 
! EXP7 
! FIND1 
! GO 
! LEOF 
ILIST2 
! LPASS 
!LRT N 


A878 

A87 1 

A5F8 

A3C3 

A896 

A4EB 

A 522 

A4D7 

A1EC 

A276 

A3C1 

A3B6 

A596 

B3BD 

B286 

AA5D 

AEF5 

B2BA 

B43C 

A9A8 

A9FF 

ACA5 

AFA5 

AE1F 

AB74 

AE97 

AB9C 


A 

A 

A 

A 

A 

A 

A 

A 

A# 

A* 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A* 

A 

A 

A 

A 


» SLONE 
! SORT 
! SRC 2 
! SREL 
! SSAVE 
! ST4 
! STITL 
! STR3 
! SYN5 
! SYNB 
ITBIG 
! TSTOR 
! VALUE 
•Cl 

! CDONE 
! CONT 4 
! D5 
! BIS4 
! DM2 
•EXP3 
! FA2 
! FIND2 
! GOB J 
! LEOF 1 
! LM1 
! LRAN1 
! LSI 


0040 

00F9 

A890 

A1 68 

A8A8 

AOEB 

A2ED 

A IDF 

A83B 

A4C9 

A245 

A489 

A38D 

A5EF 

A3FE 

A565 

A421 

A132 

A8C4 

A8DF 

A825 

A340 

AS2C 

A378 

A899 

A8D2 

A814 

A842 

A893 

A8D9 

A609 

A842 

A889 

A4FC 

A8B2 

A4DF 

A1F2 

A267 

A30B 

A36A 

A84E 

AF70 

AF8D 

AA68 

AEEO 

B2CB 

B410 

A9CE 

B228 

AC95 

AE3B 

AE21 

ABDB 

AC 53 

AD45 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A* 

A 

A 

A 

A 

A 

A 

A 

A 

A* 

A 

A 

A 

A 

A* 

A 

A* 

A 

A 

A 

A 

A 

A 

A* 

A 

A 

A 

A 


ZPGY 
ZTEMP4 
! ANTV 
! BYTE 1 
! DEC 
! DLBL2 
! ERNTV 
! ETXT3 

•fail 

•FSTR1 
! GLNUM 
! HEXD 
! INC 1 
!LBL1 
! LBLRE 
! LNF 1 
•LOCI 
•NXSC 

iofile 

! OOPT 
! OR 
! PUSH 
! SATBU 
! SCLR 
! SDBYT 
•SENTE 
!SG 
SL 
!SM 
•SORG 
! SRC3 
•SREN 
ISSIZE 

• STS 
•STLEN 
!SV 

• SYN5A 
ISYNCO 
! TERMT 
! TSTSU 
! VEXP 
!C2 
! CERR 
!D1 

• DDONE 
! DI SEN 

• DRTN 
! EXP4 
! FA3 

• FMN 
! GPC 

! LERR 
ILMERR 
• LRAN2 
! LS2 


0002 
00F7 
0000 
A8BE 
A437 
A IOC 
A2E4 
A229 
A355 
A51 1 
A24F 
A45C 
A365 
A54A 
A3DC 
A577 
A432 
A38E 
A874 
A8EA 
0002 
A314 
A81 9 
A819 
A8B5 
A87D 
A896 
A899 
A88F 
A8D1 
AMS 
A87 1 
A819 


A 

A 

A* 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


ZTl 
ZXLY 
! ASERR 
iCLFLG 
! DECNU 
• DLBL3 
IESERR 
! ETXT4 

■ feol 
ifstrm 

! HEND 
'•HEX IN 
! INCCP 
! LBL2 
! LERR 
! LNF2 
! LRFAI 
! OA 
I OHEX 
! OP 

IOWORD 

IQSTR 

ISBYE 

• SCODE 

! SDEL 

•SEQU 

ISHIFT 

•SLIST 

! SMULT 

‘SPAGE 

ISRCFN 

! SREP 

1ST 


OOAF 
DA48 
A125 
AOOF 
A810 
A102 
A097 
A1DC 
A840 
A4C5 
A4B3 
A49C 
A387 
A559 
A25F 
A584 
A436 
A828 
A8AE 
A863 
A8B8 
A8C8 
A819 
0008 
A808 
A8D 1 
A47E 
A86D 
A8F3 
A8B2 
A621 
A81B 
A896 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


A50F 

A 

IST6 

A4E9 

A 

A51C 

A 

! STNUM 

A452 

A 

A88F 

A 

•SWORD 

A8B5 

A 

A1F9 

A* 

! SYN6 

A1FC 

A 

A210 

A 

I SYNEN 

A2AD 

A 

A396 

A 

ITNC1 

A44D 

A 

APDR 

A 

1 TU 1 

a cn i 


nc-i/Cj 

rn 

. 1 VI 

n J Jo 

A 

0007 

A 

I APR 1 

B334 

A 

AF68 

A 

!C3 

AF66 

A 

AF8A 

A* 

•CONTI 

AA2B 

A 

AEC9 

A 

! D2 

AED3 

A 

AF02 

A 

IDDUM 

B3CF 

A 

B35F 

A 

•DL 

B274 

A 

AB38 

A 

IDTST 

AEED 

A* 

A9EF 

A 

IEXP5 

A9F4 

A 

B239 

A 

! FAFAI 

B22F 

A 

B30C 

A 

! FND 

AD6B 

A 

B 1 34 

A 

! INB 

ABEF 

A 

AE27 

A 

•LGO 

AB8B 

A* 

ADD3 

A 

! LOAD 

AEOD 

A 

AC3B 

A* 

ILRAN3 

ACS 1 

A 

AD4D 

A 

IMASE1 

B500 

A* 


.' LEND 
I L I ST 1 
! L0AD2 
! LRAN4 


nu oc: m 

AE9& A 
AB7E A 
ADF9 A 
AC4F A 


. uu 
I LEOF 
I L I ST2 
! LPASS 
! LRTN 


AFA5 

AE1F 

AB74 

AE97 

AB9C 


A* 

A 

A 

A 

A 


! GOB J 
! LEOF 1 
! LM1 
! LRAN1 
! LSI 


AE3B 
AE21 
ABDB 
AC 53 
AD45 


A* 

A 

A 

A 

A 


PAGE 
END OF 


309 

BASIC 


SHEP ATARI EDITOR 








! MASER 
IMOVL 
! NF 1 
! NUM2 
I PSET 
! REN3 
I SCAN1 
.'SET IT 
!TLN 
! VEOF 
! ADRER 
!AL3 
I A3YNE 
! AXM5 
! BYT2 
! EDUM 
! GEXP 
! IF3 
I JSR 
! NL 
! 0C5 
! OKB 
! ORGA 
! PDONE 
f PODON 
! PT2 
! PTPR 1 
! TL1 
f VERR 
! ASMER 
! GS3 
! PENUM 
!SI01 
! SI06 
! ADDEN 
I DP 

! EFORM 
! ERVAL 
! EXPO 
.' F2 
!FN2 
‘ FNZER 
! FRD1 
* FRM3 
I GETDI 
i IN2 
.'MINUS 
! NIB 1 
! NONUM 
! NSWAP 
! ROUND 
IRTPAS 
'SUB 
! TSNFA 
! TSTN 


B4FB 
ABC6 
B43F 
AA9A 
AAF9 
AB38 
B2F7 
AD86 
AE77 
B1DB 
B9B6 
BBFo 
B5D6 
B955 
B745 
BA37 
B93C 
B&2B 
B907 
BCA6 
BBCB 
BB62 
B7A7 
B56A 
BC27 
B6C7 
B705 
BCA5 
B8F2 
BEF5 
BEAC 
BFOD 
BDD3 
BDF 1 
DAA4 
D85A 
D920 
DA42 
D91 A 
DD1 1 
DCBS 
DCA4 
DB4E 
DB09 
DCB9 
D81C 
D856 
DBED 
D841 
DA85 
DA24 
DBE2 
DAB3 
DBDO 
DBDB 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


! MEOF 
! MPR 
! NFND 
! OFF 
! Q 1 
I REP 
! SCAN2 
! S I JMP 
! TPASS 
! XPDON 


B217 

B310 

AD6C 

B478 

ACB6 

AD07 

B301 

B448 

AE84 

AB50 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


! MI NI 
! NCLR 
! NOR 
! OP SI 
!Q2 
! REP2 
ISEOF 
! STRM1 
! VI 
! ABRK 


B4EB 

ADE5 

B04F 

B46D 

ACC6 

AD28 

AE6B 

AC03 

B19A 

B58E 


47 ERROR LINES 
SOURCE CK. = 5C08 
4 LOCAL REGIONS 


203 
OBJ. CK. = 

( 


292 294 

0000 


295 298 299 304 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


! ADRR 

B9C5 A 

! ADUM 

B5DB 

A 

! AL4 

BBEC A 

! AL5 

BCOO 

A 

! AUTO 

BCDE A 

! AXM1 

B968 

A 

! AXM6 

B965 A 

! BACK 

B8EB 

A 

! B YT3 

B75B A 

! DOLP 

BAF8 

A 

! EERR 

B86C A 

.'END 

B602 

A 

! GEXP 1 

B93A A 

! GLTXT 

B669 

A 

! IF4 

B655 A 

! IFF 

B639 

A 

! MDRT 

BB3C A 

i MDSU 

BB34 

A 

! OC 1 

BB80 A 

! 0C2 

BB8E 

A 

! 0C6 

BBB4 A 

! 0C7 

BBB7 

A 

! ON 

B88A A 

.' OP 2 

B7C6 

A 

! ORGB 

B7D2 A 

IPAD 

BC8C 

A 

! P I N 1 

BC55 A 

IPO 

B80A 

A 

I PRB 

BCS5 A 

' PRPL1 

RC AR 

A 

! PTDON 

B6D7 A 

IPTEXP 

B6BB 

rn 

A 

.'RES 

BB51 A 

ISP1 

B999 

A 

! TSTE1 

BCC5 A 

IUPERR 

BD23 

A 

! WORD 

B71D A 

IW0RD2 

B71F 

A 

! EDERR 

BEF2 A 

IERTN 

BEEO 

A 

! GSRT 1 

BEAB A 

' MSG1 

BFA2 

A 

IPRI1 

BF3E A 

IPRIH 

BF65 

A 

! SI 02 

BDE1 A 

ISI02A 

BDF9 

A 

! SI 07 

BDDC A 

ITB2 

BE88 

A 

.' C VB 1 

DC79 A* 

I CVBYT 

DC76 

A 

! EF1 

D94F A 

I EF2 

D96B 

A 

.'EMIN 

D8AB A* 

I EPL 

D969 

A 

.' EVEN 

D8CE A 

.'EXIT 

D8B6 

A 

.' E X P 1 

D89B A 

I EXP2 

D86C 

A 

.' FADON 

D9A9 A 

I FAIL 

DB65 

A 

IFN3 

DCA6 A 

I FN4 

D99C 

A 

! FP 1 1 

D9EA A 

I FRA 

DD13 

A 

.' FRD2 

DB70 A 

.' FRM 

DAF1 

A 

! FRS1 

DB74 A 

IFRS2 

DB 52 

A 

! IFP1 

D9B8 A 

I IFP2 

D9BE 

A 

! INCE 

D837 A 

I INCE2 

D83E 

A 

.' MV1 

DD36 A 

IMV2 

DD2A 

A 

.'NIBS 

DBEF A 

INOINC 

D94C 

A 

! NORM 

DCOA A 

1 NOTE 

D8B2 

A 

.' NXTB 

DB 1 3 A 

I NXTB 1 

DC64 

A 

.' RSH 

DC 40 A 

IRSH1 

DC 48 

A 

.' SB 1 

DBAS A 

ISBRTS 

DBAC 

A 

! SUB 1 

DAB6 A 

I SUB 2 

DAC5 

A 

ITST1 

DC9C A 

I TSTB I 

DC 28 

A 

! TSTN1 

DBD2 A 

I TSTUN 

DC 31 

A 




GPC 

B 1 34 

A 

LERR 

AE27 

A 

LMERR 

ADD3 

A 

LRAN2 

AC3B 

A* 

LS2 

AD4D 

A 


I MINI2 

B4F5 

A 

I NDONE 

AACO 

A 

IN0R2 

B056 

A 

I PR AD 1 

B391 

A 

IRCON 

AD04 

A 

IREP3 

AD37 

A 

I SET 1 

AD84 

A 

ITFAIL 

AE84 

A 

I V2 

B 1 DO 

A 

I ADONE 

B58E 

A 

I AL1 

BBDD 

A* 

I AL6 

BBD7 

A* 

I AXM2 

B96B 

A 

IBERR1 

B765 

A 

IDVJN 

BB12 

A 

IERRB 

BB5F 

A* 

I I F 1 

B612 

A 

I I FP 

B642 

A 

IMILP 

BB29 

A 

I 0C3 

BBA7 

A 

IOD 

B7F3 

A 

I OPT 

B8AF 

A 

IPARM2 

B54C 

A 

IP01 

BC10 

A 

IPRPL2 

BC75 

A 

! PTMOV 

B6C1 

A 

1 SPEND 

B9A1 

A 

'VALID 

B982 

A 

1 W0RD3 

B729 

A 

ERTN1 

BEE7 

A 

PDUM 

BD51 

A 

PRNON 

BEF5 

A 

SI02B 

BDF6 

A 

ADD1 

DA98 

A 

CVFRO 

DC70 

A 

EF3 

D972 

A 

EPLUS 

D8AD 

A 

EXIT1 

D8C3 

A 

EXP3 

D88E 

A 

FAIL2 

DB87 

A 

FN5 

D9S8 

A 

FRA1 

DD1 9 

A 

FRM1 

DAF7 

A 

GCHR1 

DB9D 

A 

ILSHF 

DA5A 

A 

IND2 

D8E5 

A 

NALIG 

DA8E 

A 

N0N1 

D842 

A 

NR 

DA38 

A 

NXTQ 

DB43 

A 

RSH2 

DC46 

A 

STCHA 

DC9F 

A 

SUB3 

DACE 

A 

TSTCH 

DBBB 

A 

ZF2 

DA4A 

A 


INB 

ABEF 

A 

LGO 

AB8B 

A* 

LOAD 

AEOD 

A 

LRAN3 

AC 51 

A 

MASE1 

B500 

A* 


I MOVE 

B IDF 

A 

INF 

B43E 

A 

INUM1 

AAB3 

A 

I PRR 

B376 

A* 

IREN2 

AB07 

A 

I SAVE 

AE5C 

A 

I SETA 

AD80 

A* 

I T I 

AFFF 

A 

I V3 

B1D3 

A* 

I ADR 1 

B9C7 

A* 

I AL2 

BBE9 

A 

I ASDON 

B5D9 

A 

I AXM4 

B969 

A 

I BYT 1 

B750 

A 

I EDONE 

B86B 

A 

IEXDON 

BAB2 

A 

I IF2 

B620 

A 

I I JMP 

B909 

A 

IMOLP 

BB 1 9 

A 

I 0C4 

BBBD 

A 

I OFF 1 

B8A5 

A 

I ORG 

B79A 

A 

I PAR M3 

B55D 

A 

I P02 

BC1D 

A 

IPT 

B714 

A 

I PTPR 

B710 

A 

I TAB 

B76F 

A 

I VALOK 

B8F5 

A 

I XEXP1 

BA9C 

A 

I GS2 

BE92 

A 

IPEDON 

BF25 

A 

IPRT1 

BF01 

A 

ISI05 

BDF A 

A 

I ADD2 

DAA7 

A 

IDECIN 

DCC 1 

A 

IEF4 

D97A 

A 

IER0V 

DB26 

A 

I EXP 

D863 

A 

I F 1 

DDOB 

A 

IFNI 

DCB4 

A 

IFN6 

D914 

A 

IFRADD 

DA66 

A 

IFRM2 

DB01 

A 

IGETCH 

DB94 

A 

! INI 

D81 8 

A 

I I NDON 

D8E4 

A 

I NDONE 

DC38 

A 

IN0N2 

D8A3 

A 

I NSH 

DC 10 

A 

INXTQ1 

DB45 

A 

IRTFAI 

DBCF 

A 

! STNUM 

DC9D 

A 

I SWAP 

DA77 

A 

ITSTDP 

DC93 

A 







ABCDEFGHI JKLM 

* ♦-*/: ( >=#@8c 

Y YYYYYYYYYYYYYYYYYYYYYYYYYYYYYY 

0300 


END OF EXCLUDES 
END OF INCLUDES 


LAST COLUMN CARD 


44 


! ABRK 

5727 

5746* 

-'ADS 

3001* 


! ADD1 

8794* 

8799 

! ADD2 

8002 

8808* 

! ADDEN 

8776 

8803* 

ADONE 

5735 

5745* 

•ADR 

2707* 


i ADR 1 

6631* 


? ADR2 

2727* 


ADRER 

6570 

6621* 

! ADRR 

6547 

6624 

! ADUM 

5776 

5804* 

!AL1 

7198* 


! AL2 

7201 

7206* 

■' AL3 

7210 

7213* 

! AL4 

7204 

7208* 

! AL5 

7217 

7219* 

! AL6 

7192* 


! ANTV 

2468* 


i APR 1 

5216* 

5226 

! APR2 

5222* 

5286 

ASDON 

5793 

5800* 

! ASERR 

675 

735* 

ASMER 

7868 

7879* 

! ASYN1 

729 

753* 

i ASYN2 

776* 


! ASYN3 

772 

781* 

! ASYNE 

5790 

5798* 

JAUTO 

7411 

7416* 

! AXM1 

6541 

6545 

! AXM2 

6559* 

6572 

I AXM4 

6514 

6532 

! AXM5 

6523 

6528 

! AXM6 

6543 

6546* 

! BACK 

6449 

6454* 

! BSACK 

5323 

5330* 

! BERR1 

6104 

6 1 26* 

! BYT 1 

6099 

6112* 

! BYT2 

6105* 

6109 

! BYT3 

61 10 

6118* 

! BYTE1 

2852* 


f C 1 

4395* 


!C2 

4383 

4391* 

!C3 

4375 

4389* 


6174 


6629* 


7212 


5236 


765 


812 


6554* 

6535 

6537* 


6556* 


4402 


4410 


5? 





•C4 

4399 

4404* 



•CADR 

5075 

5081* 



! CDONE 

4393 

4397 

4420* 


•CERR 

4415* 




•CLFLG 

499* 

502 



! COMME 

670 

738* 

758 


IC0NT1 

3245* 

3255 



f C0NT2 

3275 

3277 

3283* 

3286 

! C0NT3 

3280* 

3290 



f CONT 4 

3288* 




! CS1 

1064* 

1069 



! CVB 1 

9328* 




ICVBYT 

9326* 

9350 



! CVFRO 

8373 

8401 

9318* 


!D 1 

4270* 

431 1 



!D2 

4277* 

4306 

4308 

4310 

!D3 

4236 

4250 

4258* 


!D4 

4294 

4299 

4302* 


*D5 

4283 

4285* 



! DATA 

2797* 




! DDONE 

4290 

4295 

4300 

4315* 

! DDUM 

5121 

5343* 



! DEC 

1434* 

2503 



! DEC IN 

8384 

8504 

9424* 


! DECNU 

2501* 



! DEL 

880 

951* 



!DEL1 

952* 




! D I S2 

5109 

5112* 



! D I S3 

5111 

5119* 



! DIS4 

5133* 

5139 



! DISEN 

5210 

5218 

5241* 


! DL 

5047 

5056 

5068* 

5078 5084 

JDLBL1 

680 

689* 



! DLBL2 

712 

715* 



! DLBL3 

688 

694 

702 

708* 

! DLDON 

5070 

5085 

5090* 


! DM1 

5447 

5450 

5452* 


!DM2 

5419* 

5423 



! DOLP 

6968* 

6988 



! DP 

8186 

8205 * 



! DRTN 

3466 

3472* 



! DSERR 

575 

578 

614* 


! DTST 

4296* 




! DV JN 

6980 

6986* 



! ED ERR 

7874 

7876* 



! EDONE 

6337 

6350* 



! EDUM 

643 

647* 

6880 

6899* 

iEERR 

631 1 

6355* 



! EF1 

8416 

8437* 



! EF2 

8456 

8460* 



! EF3 

8466* 

8471 



IEF4 

8469 

8473* 



! EFORM 

8364 

8366 

8399* 


! EMIN 

8272* 




! END 

5832 

5838* 



! EPL 

8446 

8458* 



! EPLUS 

8267 

8274* 




5088 5089 



v. 








































! ERN1 
! ERNTV 
! EROV 
! ERRB 
! ERTN 
! ERTN1 
! ERVAL 
! ESERR 
! ESRT 
! ETXT 1 
! ETXT2 
f ETXT3 
! ETXT4 
! EVEN 
! EXDON 
! EX IT 
I EX IT1 
! EXP 
! EXPO 
! EXP 1 
LEXP2 
! EXP3 
! EXP4 
! EXP5 
! EXP6 
! EXP7 
! EXPX 


1113 

1093 

8S80 

7076* 

7856 

7867 

8587 

542 

2470* 

954 

900* 

943 

884 

8317 

6873 

8191 

8304 

1297 

8361 

3127 

3126 

3160* 

3184* 

3188* 

3181 

3182 
2605* 


1115* 

1110 * 

8957* 

7859 

7869* 

8589 

544 

2503 

956* 

906 

945* 

889 

8320* 

6891* 

8207 

8305 

1299 

8391* 

3131* 

3129 

3170 

3198 

3191 

3190* 

3196* 


8979 

7863* 

8609 

611* 

2512 


895* 


8260 

8311* 

2601* 

8249 

3130 

8228 


8989 


8619 


2530 


8628 


2624 


8291* 

8188 

8255* 

3137* 

8247* 


8212* 


8220* 8276 




! F 1 

2581* 

9495 

9503* 

m 


!F2 

9499 

9508* 




! FA2 

4988 

4992 

4996* 

21 


! FA3 

5013 

5015* 


• 


! FADON 

8502 

8509* 




! FAFAI 

4989 

4993 

5001* 



! FAIL 

1101 

1108 

1 191 

# 


! FAIL2 

9061 

9069* 




1 FDONE 

3750 

3776 

3779 

34 


! FEDL 

2590* 



m 


! FILES 

2681* 



Jo 


! FIND1 

3785 

3794* 


37 


! F I ND2 

3783* 

3829 

3922 



! FMN 

5172 

5188* 


39 

! FN1 

9390 

9400* 


40 


! FN2 

9392 

9403* 


# 


! FN3 

9387* 

9394 


42 


! FN4 

8385 

8489 

8500* 



! FN5 

8382 

8486* 

• 


! FN6 

8381 

8383* 


45 


! FND 

3947 

3964* 




! FNZER 

8375 

8403 

9384* 

# 


fFPIl 

8604* 

8643 




! FR 

3756 

3768* 


*1 

! FRA 

9505 

9512* 


# 


! FRA1 

9517* 

9524 


31 3 

i FRADD 

8749* 

8771 


37 


! FRD1 

8993 

9012* 

9032 

# 


! FRD2 

9045* 

9065 


55 r~~ 

! FRM 

8889* 

8935 


# 

5> 







1201 


3798* 


1212 


8639 

2626 


1216 




867 1 # 


2628 2630 2683 2708 2717 2872 2899 


v .. . _ 


9028 9036* 


i 

I 

« 

% 

% 

f 

% 

t 

t 

t 




? FRMl 

8899* 

8903 



•FRH2 

8901 

8907* 



•FRM3 

8917* 

8921 



* FRS 1 

9053* 

9058 



f FRS2 

9020* 

9025 



! FS 

1571 

1577* 



* FSTR 

1575* 

2683 

2899 


! FSTR 1 

1581 

1632* 



•FSTRM 

1569* 

2717 



• ©CHAR 

1401* 

2626 



! 0C HR 1 

8244 

9091 

9095* 


! GET AD 

1096 

1099 

1 122* 


•©ETCH 

8141 

8215 

8225 

8275 

fCETDI 

8633 

8648 

9414* 


! GETLN 

530 

973* 



! ©EXP 

6513 

6517* 



! ©EXP 1 

651 1 

6515* 



! GLNUM 

975 

981* 



! GLTXT 

5913 

5921* 



! GO 

4451* 




•©OBJ 

4130* 




• GPC 

4777 

4782* 



•GS2 

7801* 

7821 



* GS3 

7807 

7809 

7812 

7818* 

•GSRT1 

7803 

7808 

7813 

7815* 

! HEND 

1533 

1538 
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INCPST 

3749 

3752 

INC SRC 

1877 

1888* 

INDX 

6641* 

6653 

INDY 

6642* 

6653 

INTLBF 

1002 

3575 

INVOPT 

5420 

5476* 

101 

7487 

7612 

102 

7747* 


103 

5028 

7448 

104 

7749* 


105 

7752* 


106 

7754* 



107 
IDS 
I OCB 
I0C30R 


5689 

7601 

282* 

26* 


7693 

7716 

298 

50* 


6669 

5797 

756 

3822 

7753 

9431 

5303* 

5011* 

3763 

5180 

6725 

6726 
3587 
5494 
7745* 

7746 


7757* 

7758* 

7503 

275 


6699 

6702 

671 1 

6714 

878 

4128 

7937 

887 

4999 

8494 

902 

5878 

8496 

1251 

6289 

8497 

3903 

4008* 



591 1 

7450 

8353 

8702* 


7748* 


7505 


IOCMB 

251* 

7531 

7604 

7757 


IODVC 

252* 

4105 

7534 

7597 

7619 

I0TES2 

7514 

7632* 




ICTEST 

5029 

5690 

7449 

7488 

7613 

ITTAB 

5346 

5348 

5358* 



KW3 RCH 

539 

572 

762 

1338 

1772* 

KWSTRT 

340* 

1786 

1901 

2474 

2475 

KWTAB 

1775 

1776 

1900* 



KWTAE2 

1944* 

5164 

5165 


\ 

L 

6106* 





LBLS1 

1688* 

6295 




LBLSRC 

674 

1365 

1657* 




7651 


7630* 


7735 


LBPR1 

LEPR2 


234* 

235* 


LB OFF 

236* 

1736 

1860 

3652 

3658 

4882 

4887 


8421 

8422 

8423 

8487 

8703 

8705 

9374 

LCHKi 

343* 

4076 

4143 

5720 




LCHK2 

344* 

4079 

4142 

5719 




LDDVX 

5693 

7535 

7598 

7609 

7618* 

7713 

7722 

LDIOST 

7631 

7694 

7721* 





LEADR 

107* 

5059 

5061 

5083 

5087 



LELNUM 

130* 

3677 

3678 

3687 

3690 

3702 

3704 

LENTAB 

6617 

6756* 






LGCOEF 

9793 

9794 

9834* 

9844 

i 



LINDEX 

179* 

3782 

3828 

3861 

3885 

3888 

3889 

LINLNG 

123* 

3843 

3934 

3954 




LIS DU 

376* 

7573 





LIST 

3481 

3501* 






LIST 1 

3544 

3561 * 

3790 

3811 




LISTC 

3537* 

3549 






LISTDT 

138* 

3521 

3525 

6786 

6846 

7495 

7574 

LMADR 

28* 

56* 

1034 

1035 

1037 

1039 



6727 








1324 

6292 

8499 

1563 

6298 

8507 

1622 

7420 

8704 

1707 

7422 

8706 

3487 

7425 

9093 

3592 

7434 

9108 

3595 

7436 

9120 

3615 

7437 

9426 


7738 




4899 4908^ 8356 8377 8379 8393 \ 8414 

9^88 9402 


4210 4215 

3935 3940 3952 3953 3961 


\ 


7703 


LMSAV 

256* 

1038 

1040 

1043 

1044 

4047 

4049 

LNCNT 

249* 

5040 

5077 

6029 

6807 

7382 

7383 

LNINCR 

139* 

3372 

3375 

3387 

3390 

3399 

3401 

LNUMOF 

357* 

3479 






LNUMQN 

356* 

3498 

3993 





LOADDV 

378* 

7583 






LOCCNT 

142* 

682 

685 

695 

699 

1422 

1424 


6437 

6440 

6803 

6804 

7129 

7131 

7132 


7179 

7227 

7228 

7239 

7241 



LOO 

9751* 







L001 

9763* 







LOO 10 

9753* 







LOO 1 OE 

9639 

9640 

9723* 

9326 

9827 



L0G2 

9771 

9774* 






L0G3 

9773 

9776* 






L0G4 

9779* 

9781 






LOGS 

9756 

9759* 






L0G6 

9809 

9814* 






L0G7 

9817 

9821* 






LOGBTH 

9752 

9754* 






LGGDQN 

9825 

9830* 






LOGERR 

9757* 







LOGOUT 

9823* 







LOMEM 

74* 

1045 

1046 

4021 

4022 



LOMFLO 

132* 

500 

549 

4043 




LONE 

5532* 

5546 






LRANG1 

3458 

3667* 

3973 





LRANGE 

3534 

3669* 






LSADR 

1 14* 

4552 

4554 

4631 

4633 

4843 

4846 


5274 

5292 

5293 

5305 

5307 

5308 

5310 

LSEARC 

3784 

3932* 






LSYNER 

5766 

5787* 






L THREE 

5534* 

5543 

5544 

5545 




LTWO 

5533* 

5537 

5538 

5539 

5540 

5541 

5542 

LTYPFL 

174* 

3480 

3499 

3576 

3994 

5927 


MAMQDE 

350* 

1659 

5602 

5789 

6623 

7200 


MASYNT 

5604* 

5608 

5640 

5642 

5654 


MAXCIX 

111* 

1009 

1219 

1221 




MDEND 

8939* 

9076 






MDESUP 

8875 

8983 

9441* 





MDSUP 

8884 

8991 

9460* 





MEMFUL 

449* 

3132 






MEM TCP 

89* 

1068 

3120 

3123 

3139 

3142 

3169 

MEND1 

8944* 







MEND2 

8873 

8949* 






MEND3 

8871 

8951* 

8981 





MI SCR A 

23* 

45* 

228 





MODBYT 

6580 

6739* 






MODEFL 

135* 

1658 

3333 

4441 

5603 

5670 

5788 

MOVLIN 

3562 

3572* 

5931 





MOVNUM 

6866 

6875 

7041* 





MOVTXT 

3577 

3602* 






MSSADR 

103* 

8067 

8068 

8075 




MSGXY 

7899 

8066* 

8091 





MSGXYC 

523 

564 

628 

6057 

8090* 



MUL 

6916 

7000* 







MV0T01 9631* 


3407 

3409 

3413 

3415 

7461 

7464 



5632 

7134 

5635 

7145 

6185 

7147 

6187 

7149 

6262 

7160 

6266 

7167 

6371 

7169 

6373 

7177 


5050 5052 5082 5086 5100 5135 5256 5271 

5325 5328 5336 5339 


3174 3225 3232 


3254 3258 


6622 6842 


7199 7660 7664 7866 7871 7890 


MVFA 

151* 

3147 

3150 

3185 

3188 

3193 


4S95 

4896 

4968 

4970 

4986 

4990 

MVFEA 

116* 

4088 

4090 

4149 

4150 

4973 

MVFROE 

9478 

9547* 





MVFR12 

9468 

9531* 





MVLNG 

115* 

3141 

3144 

3157 

3178 

3180 

MV'TA 

152* 

3153 

3158 

3186 

3189 

3194 


4916 

4918 

4941 

4943 

4945 

4954 


LINES PROCESSED=ALL 
UNUSED SPACE = 1978 


3238 

4998 

3241 

5012 

3280 

5014 

3283 

4084 

4086 

4096 

4146 

4147 

4975 

4987 

4991 







3231 

3234 

3237 

3265 

3272 

3274 




3243 

4956 

3262 

3266 

3269 

3281 

3284 

4881 

4904 

4905 



* 


END OF EXCLUDES 
END OF INCLUDES 


NOPQRSTUVWXYZ 
, . +-*/: < )=#©& 

Y YYYYYYYYYYYYYYYYYYYYYYYYYYYYYY 
72 

0300 


LAST COLUMN CARD 




NATCF 

NIBSHO 

NIBSH2 

NLCOEF 

NOCDO 

NOINV 

NORM 


9856* 

8151 

9175* 

9792 

7714 

5418 

8326 


8319 

9470 

9844* 

7724* 

5494* 

8561 


9179* 9415 


8804 




NORMl 

8945 

9202* 



i*| 

NOR OP 

4572 

4591* 


0 


NOR OP 1 

4593* 

4815 

4817 



NPCOEF 

9675 

9722* 




NSIGN 

205* 

3202 

8331 

0 


NTCMD 

335* 

5686 




NULFLG 

144* 

1560 

1 579 



NZ 

363* 

1384 


0 


OBJBUF 

77* 

1050 

* 7100 

21 

OBJDEX 

109* 

5771 

6618 


OBJDTD 

182* 

4156 

4163 

0 

03JDV 

377* 

7591 




OBJEND 

78* 

1052 

1054 


0BJM2 

6084 

6488 

6613 

0 

OBJMAN 

6107 

6116 

6424 


OCNTL 

5782 

7124* 


u 


OERR 

370* 

6415 

7216 

0 


OFF 

6366 

6385* 




0L3CNT 

121* 

5781 

7232 

37 


OLIST 

368* 

6417 

7363 

• 


ONE BYT 

411* 

6123 

6425 



OOBJ 

369 * 

6178 

6414 

40 


OP AGE 

371* 

6416 

7388 

# 


OPATYP 

6501 

6503 

6655* 



OPEN 

7575 

7585 

7595* 



OPERAN 

2292 


# 


OPSRCH 

5108 

5407 

5505* 

45 


OPSYN 

810* 

842 

856 

46 


OPT" 

1928 


# 


OPTFLG 

271* 

6177 

6381 



DPTTAB 

6379 

6394 

6413* 



ORRES 

7042 

7054* 




OSRCH 

6204 

6216 

6282* 



OUT 

5780* 

5858 




0UT3UF 

75* 

741 

910 

# 


OUTCNT 

161* 

3574 

3590 

55 B 


P IOC OF 

9676 

9677 

9712* 


8314 

8831 

8852 

9199* 

4819 








1590 

1597 

1637 


7155 

7237 



7099 

7101 

7130 

7143 

6220 

6788 

7156 

7556 

6627 

7091* 



6433 

6445 

6486 

6609 

7366 


7138 


6395 6396 


6806 


938 

3614 

9722 


1309 

3616 


1641 


3729 




58 


7173 

7592 


6628 


7137 


391 1 


7209 7230 7244 

7704 


7092 7098* 



7215 7362 7365 7387 


3949 5631 5634 6310 6314 




PADS 

5389 

5543* 

5572 

PABSX 

5449 

5544* 

5588 

P ASSY 

5451 

5545* 

5585 

PACU 

5546* 

5570 


PAGE” 

1913 



PAGE 1 

6018* 

7393 


PAGEND 

88* 

6798 


PAGEP 

87* 

6015 

6049 

PASS1 

361* 

5671 


PA3S2 

362* 

5599 

5736 

PASSFL 

133* 

717 

1378 

REJECT 

341* 

6021 


PIMM 

5537* 

5560 

5562 

PIN 

7203 

7254* 


PINDX 

5538* 

5561 


PINDY 

5539* 

5577 


PI0V4 

9857* 



PLST 

414* 

5795 

6140 

PLYARG 

9567 

9568 

9593 

PLYCNT 

207* 

9566 

9574 

PL YE VI 

9576* 

9596 


PLYEV2 

9582 

9536 * 


PLYEVL 

9564* 

9678 

9795 

PL YOU! 

9575 

9577 

9590 

PMASK 

247* 

5126 

5205 

PMTAB 

5427 

5559* 


PNUM 

3343 

3384* 

342A 

POBJL 

7195 

7211 

W*tCU 

7225* 

PORG 

5834 

6180 

6256* 

POX 

272* 

6341 

7188 


PRA 5206 5237* 

PRADR 5221 5270* 


PRADRB 

4275 

4897 

4906 

PR3LAN 

5155 

5796 

7328 

PR3LK1 

7345 

7911 

8007* 

PR3LK3 

4025 

4031 

4337 

PRCHAR 

625 

3633 

3814 


7993 

8009 

8018 

PRCNT 

160* 

5215 

521 7 





PRCR 

520 

561 

3507 


7917 

8016* 

8092 

PRCX 

7497* 



PRHEX 2 

4023 

4029 

4035 

PRHEXB 

4280 

4341 

4346 

PRHEXC 

4339 

4344 

4349 





P RIHEX 

5281 

5284 

7238 

PR1NUM 

7417 

7910 

7929* 

PRPAD 

7259 

7267 

7274 

PRPAGE 

6032 

6048* 


PRPC 

4851 

5097 

5291* 

PRPL 

7264 

7272 

7279 

PRREL 

5207 

5251* 


PR TERR 

3134 

5653 

5946 

PRTITL 

6031 

6043* 


PTBUFF 

102* 

5967 

5969 

PTCMD 

334* 

7634 


PTDEX 

169* 

5996 

6000 


5573 

5589 

5574 

5590 



6050 

6814 

6818 


5600 

5672 

5734 

5737 

5569 





6322 6824 6826 7258 
9594 9728 9729 9738 
9591 


9592 9597* 

5212 5223 5225 


6390 

7325 7391 7395 7498 


5294 7229 8028* 

7342* 

8030 8043 

4902 5201 5295 7340* 

5197 5231 5235 5239 

8053 8055 8079 

5219 5232 7304 7311 

4037 4271 4534 4910 


5264 6345 7964* 8029 

4351 4356 4361 4900 

4354 4359 8052* 

7967 7978* 8042 

7281 7323* 


7301* 




6173 

7118 

7218 

7870 

5975 

5998 

6006 


6001 





6199 


7125 


7359 


7678 


9739 


5253 6022 7288 7310 7429 7493* 7895 

5243 5265 6023 6024 6025 6026 6033 

4909 5136 8041* 



7940 

7207 


7887* 



PTSTR 

5961* 

6016 

m 

PUTC1 

7164 

7496* 


PUTCHA 

PUT02 

7494* 

4144 

4148 

0 

PUTOBJ 

7552 

7555* 


P2PG 

5540* 

5564 


PZPGX 

5541* 

5580 

0 

PZPGY 

5542* 



QTEMP 

8995* 

9030 

# 

QUERRY 

RADFLG 

3810* 

157* 



RAM2 

24* 

46* 


REPFLG 

181* 

3769 

0 

REPON 

389* 

3755 


RESBYT 

173* 

5851 

m 

ROM 

32* 

52* 

RSHFOE 

8930 

9075 


RSHFTO 

8810 

9259* 


RSHFT1 

8779 

9263* 

0 

RSTEP 

4614* 

4764 

RSTEPO 

4624* 

4852 


RSTEP 1 

4636* 

4670 

0 

RSTEP2 

4559 

4630* 


RSTVB 

4491 

4839 

RTNADR 

127* 

4546 

0 

S 

7472 



51 

52 

475* 

476* 


• 

SCRDV 

375* 

3524 

SCVECT 

8096* 

8101 


SDEND 

4232 

4246 

# 

SEARCH 

1692 

1777 


SET 1 

385* 

3989 

SETA 

383* 

3985 

• 

SETBVB 

48* 

4460 


SETQ 

384* 

3981 


SETUPC 

4449 

4519 

0 

SGNFLG 

209* 

9647 


SHEP 

SICKIO 

1 

7633 

7636* 

# 

, SIX 

230* 

1085 


SKBLAN 

1013 

1435 


SKCTL 

65* 

518 

# 

SKPBLA 

535 

595 


SMBL.D 

84* 

5739 


SM3LEN 

83* 

1716 

# 

SMBLTP 

82* 

1689 


SOX 

231* 

1033 


SPC 

232* 

1077 

# 

SPTAB 

4582 

4584 


SQR10 

9784 

9735 

# 

SQRCNT 

SRCADR 

206* 

104* 

678 



1851 

1855 

. M 


6233 

6241 

# 

SRCCNT 

124* 

5506 


SRCNXT 

1698 

1876* 



7557 




4151 

5721 

6238 

6245 

5565 

5581 

5566 

5582 



9041 

9042 

9043 

9044 

242 




3787 




6167 

473 

9298* 

6328 

6521 

6864 

4766 




4679 

4707 

4749 


4858* 

4548 

4640 

4642 

4848 


7701 

9861* 

4323* 

1844* 

9866 



4862 




4531 

4774* 



9702 

9754 

9824 


1157 

1224 



1561 

9103* 



754 

782 

820 

1418 

5740 

6779 



1728 

1690 

6784 

6851 


1159 

1226 



1079 

4804* 

9832* 

1161 

1163 

1180 

684 

687 

697 

701 

1862 

1891 

1893 

5168 

6244 

5517 

6302 

6315 

6318 


7549* 


9063 


7061 


4850 


1466 


1182 


719 

5169 

6322 


1661 1773 5610 5622 8119 9104* 


725 727 1369 1383 1385 1391 1394 1850 
5176 5194 5507 5508 5513 6206 6208 6229 
6325 6330 6332 





V 

H 


SRCSKP 

STACK 

STENUM 

STEP 

STKLVL 

STMCUR 


STMSTR 

STOP 

STR1 


125 * 

229 * 

176 * 

5468 

4520 

119 * 

80 * 

3347 

7797 

180 * 

1 67 * 
5230 


1845 

233 

599 

4533 

1081 

926 

3851 

7798 

537 

5101 

5553 * 


1854 

769 

4544 * 

1148 

928 

3853 

7805 

570 

5396 


TABS 

TABSX 

TABSY 

TACU 

TADR 

TCOMM 

TDIR 

TEMPRL 

TEOE 

THEX2 

THRBYT 

TIMM 

TIM P 

TINDX 

TINDY 


442 * 

444 * 

443 * 

438 * 

4869 

425 * 

426 * 

258 * 

422 * 

419 * 

412 * 

437 * 

427 * 

435 * 

436 * 


3010 

3002 

3006 

2981 

4928 

740 

771 

5695 

2603 

1377 

6490 

2970 

2988 

2993 


6531 

6571 

6512 

4952 * 


5697 

6872 

1386 

6542 


835 


1 1 54 
939 
3394 
7810 

5402 


STR1LN 

118 * 

3751 

3764 

3836 

STR2 

5233 

5554 * 



STR2LN 

267 * 

3753 

3838 

3860 

STRDEL 

175 * 

1606 

1625 


STRDEX 

246 * 

3946 

4000 


STRMOV 

3647 * 

7607 



SUB 

6915 

6948 * 



SVC I X 

159 * 

5870 

5894 


SVESA 

106 * 

925 

927 





7C./ 

1 / C-xJ 

SVLENO 

1 64 * 

5860 

5871 


SYNINI 

527 

566 

1001 * 

5607 

TAB ” 

1931 




TAB 1 

178 * 

243 * 

6142 

6823 

TAB2 

245 * 

6825 

7273 


TAB 3 

248 * 

6827 

ypRn 


TABCNT 

168 * 

6136 

/ CUV 

6141 

6146 

TABEXP 

6902 

6904 

6913 * 



864 

1175 

967 

3896 

7826 

5444 

3996 


1343 


1189 
31 1 1 
3913 
7832 

551 1 


1737 


7266 


1744 


6600 

6540 


7689 

1403 

6591 


7691 

1420 


1447 


TITLEN 

86* 

6794 





TITLEP 

85* 

5738 

5955 

6044 

6045 

6813 

TLBL 

423* 

723 





TLEND 

3465 

3541 

3778 

4176* 



TMAC'RO 

431* 






TMISC 

429* 






TMULTI 

430* 

5110 





TNLBL 

424* 

745 





TOBJDE 

163* 

7153 

7171 

7172 

7187 

7236 

T0PT2 

2440* 

2463 

5404 

5405 



TOPTBL 

778 

2401* 

2439 

5105 

5106 


TPCIX 

170* 

7419 

7427 

7435 

7443 

7933 


1784 

1787 

1848 

1852 

4557 

5116 

5159 

5413 

1223 

1257 







3217 

3957 

7833 

3360 

4189 

7835 

3363 

4194 

7837 

3443 

4209 

3446 

4214 

3580 

5665 

3583 

5667 

3604 

6832 

6507 

6585 

6608 







1746 


3151 


3155 


1509 


3682 


3699 


4382 


6098 


6510 


6817 




7243 




5459 


3613 

6834 


7935 


7936 



TPVB1 

4483 

4488* 






TPVBLK 

4457 

4458 

4481* 





TREL 

428* . 







TSCOX 

172* 

1617 

1635 

1640 

5862 

5882 


TSLNUM 

113* 

987 

988 

3349 

3350 

3361 

3364 


7404 

7407 

7806 

731 1 




TSOE 

421* 







TSTAL.P 

1322* 

5889 






TSTBRK 

1015 

3484 

3538 

3545 

3775 

3816 

4289 

TSTEJT 

5794 

6338 

7193 

7381* 

7892 



TSTLIS 

5792 

6019 

6336 

7190 

7358* 



TSTLST 

4179 

4207* 






TSTNUM 

1674 

5891 

9089 

91 18* 




TSTOER 

5799 

7214* 






TSTR 

420* 

1610 






TSTTEN 

3356 

3438 

4177 

4188* 

5922 

7802 


TV3C I X 

171* 

1437 

1443 

1663 

1684 

1686 

1696 


6294 


TWOBYT 

TXTDV 

TXTEND 

TXTTAB 
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